Changes from branches/petra/src/par_mod.f90 at r36 to trunk/src/par_mod.f90 at r27

File:

• trunk/src/par_mod.f90 (modified) (4 diffs)

trunk/src/par_mod.f90

@@ -1 +1 @@
 !**********************************************************************
-! Copyright 1998-2015                                                 *
+! Copyright 1998,1999,2000,2001,2002,2005,2007,2008,2009,2010         *
 ! Andreas Stohl, Petra Seibert, A. Frank, Gerhard Wotawa,             *
 ! Caroline Forster, Sabine Eckhardt, John Burkhart, Harald Sodemann   *
@@ -28 +28 @@
 !        1997                                                                  *
 !                                                                              *
-!        15 August 2013, IP                                                    *
-!        2/2015, PS: nshift=0, unitheader_txt -> unitheader_rel
-!                                                                              *
+!        Last update 15 August 2013 IP                                         *
 !                                                                              *
 !*******************************************************************************
@@ -130 +128 @@
   !integer,parameter :: nxmax=1201,nymax=235,nuvzmax=58,nwzmax=58,nzmax=58
 
-  integer,parameter :: nxshift= 0 !359 ! for ECMWF
+  integer,parameter :: nxshift=359 ! for ECMWF
   !integer,parameter :: nxshift=0     ! for GFS or FNL (XF)
 
@@ -261 +259 @@
   integer,parameter :: unitlsm=1, unitsurfdata=1, unitland=1, unitwesely=1
   integer,parameter :: unitOH=1
-  integer,parameter :: unitdates=94, unitheader=90,unitheader_rel=100, unitshortpart=95
+  integer,parameter :: unitdates=94, unitheader=90,unitheader_txt=100, unitshortpart=95
   integer,parameter :: unitboundcond=89