Changeset 4035 for LMDZ6/trunk

Timestamp:

Nov 30, 2021, 7:44:20 PM (3 years ago)

Author:

lguez

Message:

Bug fix: only write defined fields to startphy

Location:

LMDZ6/trunk

Files:

• . (modified) (1 prop)
• libf/phylmd/phyredem.F90 (modified) (1 diff)

LMDZ6/trunk/libf/phylmd/phyredem.F90

@@ -162 +162 @@
     CALL put_field_srf1(pass,"TS","Temperature",ftsol(:,:))
 
-!!    CALL put_field_srf1(pass,"DELTA_TS","w-x surface temperature difference", delta_tsurf(:,:))
-    CALL put_field_srf1(pass,"DELTATS","w-x surface temperature difference", delta_tsurf(:,:))
-
-!    CALL put_field_srf1(pass,"BETA_S","Aridity factor", beta_aridity(:,:))
-    CALL put_field_srf1(pass,"BETAS","Aridity factor", beta_aridity(:,:))
+    IF (iflag_pbl>1 .AND. iflag_wake>=1  .AND. iflag_pbl_split >=1) then
+       CALL put_field_srf1(pass, "DELTATS", &
+            "w-x surface temperature difference", delta_tsurf(:,:))
+       CALL put_field_srf1(pass,"BETAS","Aridity factor", beta_aridity(:,:))
+    end IF
 !    End surface variables