Changeset 1707 for LMDZ5/branches/testing/libf/dyn3dmem/call_calfis_mod.F90

Timestamp:

Jan 11, 2013, 10:19:19 AM (11 years ago)

Author:

Laurent Fairhead

Message:

Version testing basée sur la r1706

---

Testing release based on r1706

Location:

LMDZ5/branches/testing

Files:

• . (modified) (1 prop)
• libf/dyn3dmem/call_calfis_mod.F90 (modified) (1 diff)

LMDZ5/branches/testing/libf/dyn3dmem/call_calfis_mod.F90

@@ -136 +136 @@
   !$OMP END MASTER
    
-    jD_cur = jD_ref + day_ini - day_ref + int (itau * dtvr / daysec) 
-    jH_cur = jH_ref + (itau * dtvr / daysec - int(itau * dtvr / daysec)) 
+           jD_cur = jD_ref + day_ini - day_ref                           &
+     &        + itau/day_step
+
+           IF (planet_type .eq."generic") THEN
+              ! AS: we make jD_cur to be pday
+              jD_cur = int(day_ini + itau/day_step)
+           ENDIF
+
+           jH_cur = jH_ref + start_time +                                &
+     &              mod(itau,day_step)/float(day_step) 
+    if (jH_cur > 1.0 ) then
+      jD_cur = jD_cur +1.
+      jH_cur = jH_cur -1.
+    endif
 
 !   Inbterface avec les routines de phylmd (phymars ... )