Changeset 3831 for dynamico_lmdz/aquaplanet/LMDZ5/libf/phylmd/write_histrac.h

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/write_histrac.h (modified) (1 diff)

dynamico_lmdz/aquaplanet/LMDZ5/libf/phylmd/write_histrac.h

@@ -5 +5 @@
   IF (ecrit_tra > 0.) THEN
      
-     itau_w = itau_phy + nstep + start_time * day_step / iphysiq
+     itau_w = itau_phy + nstep + start_time * day_step 
      
      CALL histwrite_phy(nid_tra,.FALSE.,"phis",itau_w,pphis)