Changeset 1608 for LMDZ5/trunk/libf/phy1d/lmdz1d.F

Timestamp:

Jan 10, 2012, 2:33:09 PM (13 years ago)

Author:

lguez

Message:

In "phy1d/*", replaced obsolete calls to "lnblnk" by calls to "trim".

In "lmdz1d.F", use collector module "ioipsl" rather than specific
module "calendar", which is an internal module of IOIPSL. Removed line
containing only "#" (causes compilation error). Bug fix in call to
"init_phys_lmdz".

File:

• LMDZ5/trunk/libf/phy1d/lmdz1d.F (modified) (3 diffs)

LMDZ5/trunk/libf/phy1d/lmdz1d.F

@@ -1 +1 @@
       PROGRAM lmdz1d
 
-      USE ioipsl, only: ju2ymds, ymds2ju
-      USE calendar
+      USE ioipsl, only: ju2ymds, ymds2ju, ioconf_calendar
       use phys_state_var_mod
       use comgeomphy
@@ -298 +297 @@
 
 c      calend = 'earth_365d'
-#
       if (calend == 'earth_360d') then
         call ioconf_calendar('360d')
@@ -358 +356 @@
 ! Initialization of dimensions, geometry and initial state
 !---------------------------------------------------------------------
-      call init_phys_lmdz(1,1,llm,1,1)
+      call init_phys_lmdz(1,1,llm,1,(/1/))
       call suphel
       call initcomgeomphy