Changeset 57 for LMDZ.3.3/trunk

Timestamp:

Feb 18, 2000, 2:53:27 PM (25 years ago)

Author:

lmdzadmin

Message:

Embryon pour un vrai calendrier. LF

File:

• LMDZ.3.3/trunk/libf/dyn3d/gcm.F (modified) (5 diffs)

LMDZ.3.3/trunk/libf/dyn3d/gcm.F

@@ -1 +1 @@
 
       PROGRAM gcm
+
+      USE IOIPSL
 
       IMPLICIT NONE
@@ -115 +117 @@
 
 
+      INTEGER fluxid, fluxvid,fluxdid
       integer histid, histvid, histaveid
       real time_step, t_wrt, t_ops
@@ -123 +126 @@
 
       LOGICAL offline  ! Controle du stockage ds "fluxmass"
-      PARAMETER (offline=.false.)
+      PARAMETER (offline=.true.)
 
       character*80 dynhist_file, dynhistave_file
       character*20 modname
       character*80 abort_message
+
+C Calendrier
+      LOGICAL true_calendar
+      PARAMETER (true_calendar = .false.)
 
 c-----------------------------------------------------------------------
@@ -138 +145 @@
       dynhist_file = 'dyn_hist.nc'
       dynhistave_file = 'dyn_hist_ave.nc'
+
+      if (true_calendar) then
+        call ioconf_calendar('gregorian')
+      else
+        call ioconf_calendar('360d')
+      endif
 c-----------------------------------------------------------------------
 c
@@ -372 +385 @@
          IF (offline) THEN
 Cmaf stokage du flux de masse pour traceurs OFF-LINE
-           CALL fluxstoke(pbaru,pbarv,masse,teta,phi,phis)
+
+            CALL fluxstokenc(pbaru,pbarv,masse,teta,phi,phis,
+     .   time_step, itau,fluxid, fluxvid,fluxdid )
+
          ENDIF
 c