Changeset 1186 for LMDZ4/branches/LMDZ4-dev/libf/dyn3dpar/dynredem.F

Timestamp:

Jun 18, 2009, 11:20:44 AM (15 years ago)

Author:

Ehouarn Millour

Message:

Cleanup around IOIPSL, so that LMDZ dynamics may be used without IOIPSL.

• moved ersatz IOIPSL routines (ioipsl_* , taken from IOIPSLv2_1_8, so that 'getin' function may be used even if not using the IOIPSL library) from dyn3d/dyn3dpar to bibio.
• enclosed 'use ioipsl' instruction with #ifdef CPP_IOIPSL cpp keys.

EM

File:

• LMDZ4/branches/LMDZ4-dev/libf/dyn3dpar/dynredem.F (modified) (6 diffs)

LMDZ4/branches/LMDZ4-dev/libf/dyn3dpar/dynredem.F

@@ -1 +1 @@
 !
-! $Header$
+! $Id$
 !
 c
       SUBROUTINE dynredem0(fichnom,iday_end,phis)
+#ifdef CPP_IOIPSL
       USE IOIPSL
+#endif
       USE infotrac
       IMPLICIT NONE
@@ -55 +57 @@
 
 c-----------------------------------------------------------------------
-      modname='dynredem'
-
+      modname='dynredem0'
+
+#ifdef CPP_IOIPSL
       call ymds2ju(annee_ref, 1, iday_end, 0.0, zjulian)
       call ju2ymds(zjulian, yyears0, mmois0, jjour0, hours)
-        
+#else
+! set yyears0, mmois0, jjour0 to 0,1,1 (hours is not used)
+      yyears0=0
+      mmois0=1
+      jjour0=1
+#endif        
 
       DO l=1,length
@@ -457 +465 @@
       dims4(3) = idim_s
       dims4(4) = idim_tim
-
+      IF(nqtot.GE.1) THEN
       DO iq=1,nqtot
 cIM 220306 BEG
@@ -468 +476 @@
       ierr = NF_PUT_ATT_TEXT (nid, nvarid, "title", 12,ttext(iq))
       ENDDO
+      ENDIF
 c
       dims4(1) = idim_rlonv
@@ -631 +640 @@
       END IF
 
+      IF(nqtot.GE.1) THEN
       do iq=1,nqtot 
 
@@ -701 +711 @@
       
       ENDDO
+      ENDIF
 c
       ierr = NF_INQ_VARID(nid, "masse", nvarid)