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

Timestamp:

Dec 14, 2015, 11:43:09 AM (9 years ago)

Author:

Laurent Fairhead

Message:

Merged trunk changes r2298:2396 into testing branch

Location:

LMDZ5/branches/testing

Files:

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

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

@@ -137 +137 @@
    
            jD_cur = jD_ref + day_ini - day_ref                           &
-     &        + itau/day_step
+     &        + (itau+1)/day_step
 
            IF (planet_type .eq."generic") THEN
@@ -145 +145 @@
 
            jH_cur = jH_ref + start_time +                                &
-     &              mod(itau,day_step)/float(day_step) 
+     &              mod(itau+1,day_step)/float(day_step) 
     if (jH_cur > 1.0 ) then
       jD_cur = jD_cur +1.