Changeset 1bed61d in flexpart.git for src/getrb.f90
- Timestamp:
- Nov 12, 2019, 2:40:23 PM (5 years ago)
- Branches:
- master, 10.4.1_pesei, GFS_025, bugfixes+enhancements, dev, release-10, release-10.4.1, scaling-bug
- Children:
- 766d157, aa939a9
- Parents:
- 8e85db7 (diff), 3481cc1 (diff)
Note: this is a merge changeset, the changes displayed below correspond to the merge itself.
Use the (diff) links above to see all the changes relative to each parent. - File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
src/getrb.f90
re200b7a r3481cc1 1 !**********************************************************************2 ! Copyright 1998,1999,2000,2001,2002,2005,2007,2008,2009,2010 *3 ! Andreas Stohl, Petra Seibert, A. Frank, Gerhard Wotawa, *4 ! Caroline Forster, Sabine Eckhardt, John Burkhart, Harald Sodemann *5 ! *6 ! This file is part of FLEXPART. *7 ! *8 ! FLEXPART is free software: you can redistribute it and/or modify *9 ! it under the terms of the GNU General Public License as published by*10 ! the Free Software Foundation, either version 3 of the License, or *11 ! (at your option) any later version. *12 ! *13 ! FLEXPART is distributed in the hope that it will be useful, *14 ! but WITHOUT ANY WARRANTY; without even the implied warranty of *15 ! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the *16 ! GNU General Public License for more details. *17 ! *18 ! You should have received a copy of the GNU General Public License *19 ! along with FLEXPART. If not, see <http://www.gnu.org/licenses/>. *20 !**********************************************************************21 22 1 subroutine getrb(nc,ustar,nyl,diffh2o,reldiff,rb) 23 2 ! i i i i i o
Note: See TracChangeset
for help on using the changeset viewer.