Changeset 264 for codes/icosagcm/branches/SATURN_DYNAMICO/LMDZ.COMMON/libf/dyn3dpar/init_gcm_lmdz.F

Timestamp:

07/31/14 16:38:47 (10 years ago)

Author:

milmd

Message:

Architecture files and some modifications to compile and run on ada.

File:

• codes/icosagcm/branches/SATURN_DYNAMICO/LMDZ.COMMON/libf/dyn3dpar/init_gcm_lmdz.F (modified) (5 diffs)

codes/icosagcm/branches/SATURN_DYNAMICO/LMDZ.COMMON/libf/dyn3dpar/init_gcm_lmdz.F

@@ -5 +5 @@
 c
       SUBROUTINE init_gcm_lmdz(nbp,nproc,distrib_icosa,latfi,lonfi,
-     &                         airefi)
+     &                          airefi)
+!     &                         airefi,day_length)
 
 #ifdef CPP_IOIPSL
@@ -47 +48 @@
       REAL, INTENT(IN) :: lonfi(nbp)
       REAL, INTENT(IN) :: airefi(nbp)
+!      INTEGER, INTENT(IN) :: day_length
 
       REAL :: zcufi(nbp)
@@ -515 +517 @@
 !         zcvfi(nbp)=1.
 
+!        PRINT*,'daysec=',daysec
+!        PRINT*,'day_length=',day_length
+!        IF (daysec /= day_length) THEN
+!               PRINT*,'daysec different de day_length'
+!               daysec=day_length
+!        ENDIF
+
 !         CALL iniphysiq(klon_glo,llm,daysec,day_ini,dtphys/nsplit_phys, 
 !     &                latfi,lonfi,airefi,zcufi,zcvfi,rad,g,r,cpp, 
@@ -588 +597 @@
         t_ops =((1.0*iecri)/day_step) * daysec  
         t_wrt = daysec ! iecri * daysec ! write output every t_wrt
-        CALL inithist(day_ref,annee_ref,time_step,
-     &                  t_ops,t_wrt)
+!        CALL inithist(day_ref,annee_ref,time_step,
+!     &                  t_ops,t_wrt)
         endif
 
@@ -596 +605 @@
           t_ops = iperiod * time_step ! do operations every t_ops
           t_wrt = periodav * daysec   ! write output every t_wrt
-          CALL initdynav(day_ref,annee_ref,time_step,
-     &                   t_ops,t_wrt)
+!          CALL initdynav(day_ref,annee_ref,time_step,
+!     &                   t_ops,t_wrt)
 !         CALL initdynav_p(dynhistave_file,day_ref,annee_ref,time_step,
 !     .        t_ops, t_wrt, histaveid)