Changeset 2114 for trunk/LMDZ.GENERIC/libf/phystd

Timestamp:

Mar 6, 2019, 7:12:37 PM (6 years ago)

Author:

aboissinot

Message:

fix a bug in the previous commit (r2113)

File:

• trunk/LMDZ.GENERIC/libf/phystd/physiq_mod.F90 (modified) (2 diffs)

trunk/LMDZ.GENERIC/libf/phystd/physiq_mod.F90

@@ -1193 +1193 @@
             CALL evap(ngrid,nlayer,nq,ptimestep,pt,pq,pdq,pdt,dqevap,dtevap,zqtherm,zttherm)
          ELSE
-            zttherm(:,:)   = pt(:,:)   + pdt(:,:)
-            zqtherm(:,:,:) = pq(:,:,:) + pdq(:,:,:)
+            zttherm(:,:)   = pt(:,:)   + pdt(:,:)   * ptimestep
+            zqtherm(:,:,:) = pq(:,:,:) + pdq(:,:,:) * ptimestep
          ENDIF
          
@@ -2348 +2348 @@
       CALL send_xios_field("omega",omega)
       
+      IF (callrad) CALL send_xios_field('dt_rad',dtrad)
+      IF (calldifv) CALL send_xios_field('dt_dif',zdtdif)
+      IF (calladj) CALL send_xios_field('dt_adj',zdtadj)
+      IF (calltherm) THEN
+         CALL send_xios_field('w_plm',zw2(:,2:))
+         CALL send_xios_field('fm',fm0(:,2:))
+         CALL send_xios_field('frac',fraca(:,2:))
+         CALL send_xios_field('entr',entr0)
+         CALL send_xios_field('detr',detr0)
+         CALL send_xios_field('dt_plm',zdttherm)
+         CALL send_xios_field('pmax',pmax)
+      ENDIF
+      IF (water) THEN
+         CALL send_xios_field('h2o_vap',zq(:,:,igcm_h2o_vap))
+         CALL send_xios_field('h2o_ice',zq(:,:,igcm_h2o_ice))
+      ENDIF
+      
       CALL send_xios_field("ISR",fluxtop_dn)
       CALL send_xios_field("OLR",fluxtop_lw)