Changeset 782 for LMDZ4/trunk/libf/phylmd/phytrac.F

Timestamp:

Jun 11, 2007, 4:50:43 PM (17 years ago)

Author:

Laurent Fairhead

Message:

Adaptation du code a la nouvelle interface avec les surface de Josefine
LF

File:

• LMDZ4/trunk/libf/phylmd/phytrac.F (modified) (1 diff)

LMDZ4/trunk/libf/phylmd/phytrac.F

@@ -415 +415 @@
 
 
-          ecrit_tra = NINT(86400./pdtphys *ecritphy) 
+c jg: c'est ca qu'on veut?????           
+          ecrit_tra = FLOAT(NINT(86400./pdtphys *ecritphy)) 
           print*,'dans phytrac ',pdtphys,ecritphy,ecrit_tra