Changeset 36 for branches/petra/src/par_mod.f90
- Timestamp:
- Feb 16, 2015, 6:21:09 PM (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/petra/src/par_mod.f90
r27 r36 1 1 !********************************************************************** 2 ! Copyright 1998 ,1999,2000,2001,2002,2005,2007,2008,2009,2010*2 ! Copyright 1998-2015 * 3 3 ! Andreas Stohl, Petra Seibert, A. Frank, Gerhard Wotawa, * 4 4 ! Caroline Forster, Sabine Eckhardt, John Burkhart, Harald Sodemann * … … 28 28 ! 1997 * 29 29 ! * 30 ! Last update 15 August 2013 IP * 30 ! 15 August 2013, IP * 31 ! 2/2015, PS: nshift=0, unitheader_txt -> unitheader_rel 32 ! * 31 33 ! * 32 34 !******************************************************************************* … … 128 130 !integer,parameter :: nxmax=1201,nymax=235,nuvzmax=58,nwzmax=58,nzmax=58 129 131 130 integer,parameter :: nxshift= 359 ! for ECMWF132 integer,parameter :: nxshift= 0 !359 ! for ECMWF 131 133 !integer,parameter :: nxshift=0 ! for GFS or FNL (XF) 132 134 … … 259 261 integer,parameter :: unitlsm=1, unitsurfdata=1, unitland=1, unitwesely=1 260 262 integer,parameter :: unitOH=1 261 integer,parameter :: unitdates=94, unitheader=90,unitheader_ txt=100, unitshortpart=95263 integer,parameter :: unitdates=94, unitheader=90,unitheader_rel=100, unitshortpart=95 262 264 integer,parameter :: unitboundcond=89 263 265
Note: See TracChangeset
for help on using the changeset viewer.