Changeset 4035
- Timestamp:
- Nov 30, 2021, 7:44:20 PM (3 years ago)
- Location:
- LMDZ6/trunk
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk
- Property svn:mergeinfo changed
/LMDZ6/branches/Ocean_skin merged: 4023
- Property svn:mergeinfo changed
-
LMDZ6/trunk/libf/phylmd/phyredem.F90
r3956 r4035 162 162 CALL put_field_srf1(pass,"TS","Temperature",ftsol(:,:)) 163 163 164 !! CALL put_field_srf1(pass,"DELTA_TS","w-x surface temperature difference", delta_tsurf(:,:)) 165 CALL put_field_srf1(pass,"DELTATS","w-x surface temperature difference", delta_tsurf(:,:))166 167 ! CALL put_field_srf1(pass,"BETA_S","Aridity factor", beta_aridity(:,:))168 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 169 169 ! End surface variables 170 170
Note: See TracChangeset
for help on using the changeset viewer.