Changeset 4984 for LMDZ6/trunk/libf/phylmd/phys_output_write_mod.F90

Timestamp:

Jun 15, 2024, 6:26:24 PM (12 days ago)

Author:

crisi

Message:

plenty of files that I forgot to commit last time.

File:

• LMDZ6/trunk/libf/phylmd/phys_output_write_mod.F90 (modified) (2 diffs)

LMDZ6/trunk/libf/phylmd/phys_output_write_mod.F90

@@ -1294 +1294 @@
 
        ENDDO
-       
-                
+
+
         IF (iflag_pbl > 1) THEN
           zx_tmp_fi3d=0.
@@ -2784 +2784 @@
 
 #ifdef ISO
+    !write(*,*) 'tmp phys_output_write: ntiso=',ntiso
     do ixt=1,ntiso
-!        write(*,*) 'ixt'
+        !write(*,*) 'ixt,o_xtovap(ixt)=',ixt,o_xtovap(ixt)
         IF (vars_defined) zx_tmp_fi2d(:) = xtrain_fall(ixt,:) + xtsnow_fall(ixt,:)
         CALL histwrite_phy(o_xtprecip(ixt), zx_tmp_fi2d)