Changeset 4023


Ignore:
Timestamp:
Nov 26, 2021, 8:27:28 AM (3 years ago)
Author:
lguez
Message:

Bug fix: only write defined fields to startphy

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/branches/Ocean_skin/libf/phylmd/phyredem.F90

    r4021 r4023  
    162162    CALL put_field_srf1(pass,"TS","Temperature",ftsol(:,:))
    163163
    164     CALL put_field_srf1(pass,"DELTATS","w-x surface temperature difference", delta_tsurf(:,:))
    165     CALL put_field_srf1(pass,"BETAS","Aridity factor", beta_aridity(:,:))
     164    IF (iflag_pbl>1 .AND. iflag_wake>=1  .AND. iflag_pbl_split >=1) then
     165       CALL put_field_srf1(pass, "DELTATS", &
     166            "w-x surface temperature difference", delta_tsurf(:,:))
     167       CALL put_field_srf1(pass,"BETAS","Aridity factor", beta_aridity(:,:))
     168    end IF
    166169!    End surface variables
    167170
Note: See TracChangeset for help on using the changeset viewer.