Changeset 3831 for dynamico_lmdz/aquaplanet/LMDZ5/libf/phylmd/cosp

Timestamp:

Jun 18, 2015, 12:00:37 PM (10 years ago)

Author:

ymipsl

Message:

module reorganisation for a cleaner dyn-phys interface
YM

File:

• dynamico_lmdz/aquaplanet/LMDZ5/libf/phylmd/cosp/cosp_output_write_mod.F90 (modified) (1 diff)

dynamico_lmdz/aquaplanet/LMDZ5/libf/phylmd/cosp/cosp_output_write_mod.F90

@@ -51 +51 @@
 
 ! A refaire
-       itau_wcosp = itau_phy + itap + start_time * day_step / iphysiq
+       itau_wcosp = itau_phy + itap + start_time * day_step 
         if (prt_level >= 10) then
-             WRITE(lunout,*)'itau_wcosp, itap, start_time, day_step, iphysiq =', & 
-                             itau_wcosp, itap, start_time, day_step, iphysiq
+             WRITE(lunout,*)'itau_wcosp, itap, start_time, day_step', & 
+                             itau_wcosp, itap, start_time, day_step
         endif