Changeset 3888 for LMDZ6/trunk/libf/phylmd/phys_output_write_mod.F90
- Timestamp:
- May 5, 2021, 12:50:37 PM (3 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/phylmd/phys_output_write_mod.F90
r3865 r3888 87 87 o_dtvdf_x , o_dtvdf_w , o_dqvdf_x , o_dqvdf_w , & 88 88 o_sens_x , o_sens_w , o_flat_x , o_flat_w , & 89 o_delta_tsurf, &89 o_delta_tsurf, o_delta_tsurf_srf, & 90 90 o_cdragh_x , o_cdragh_w , o_cdragm_x , o_cdragm_w , & 91 91 o_kh , o_kh_x , o_kh_w , & … … 1354 1354 ! 1355 1355 CALL histwrite_phy(o_dqvdf_w ,zx_tmp_fi3d) 1356 CALL histwrite_phy(o_sens_x ,sens_x ) 1357 CALL histwrite_phy(o_sens_w ,sens_w ) 1356 IF (vars_defined) zx_tmp_fi2d(1:klon)=-1*sens_x(1:klon) 1357 CALL histwrite_phy(o_sens_x ,zx_tmp_fi2d) 1358 IF (vars_defined) zx_tmp_fi2d(1:klon)=-1*sens_w(1:klon) 1359 CALL histwrite_phy(o_sens_w ,zx_tmp_fi2d) 1358 1360 CALL histwrite_phy(o_flat_x ,zxfluxlat_x) 1359 1361 CALL histwrite_phy(o_flat_w ,zxfluxlat_w) 1360 CALL histwrite_phy(o_delta_tsurf,delta_tsurf) 1362 zx_tmp_fi2d=0. 1363 IF (vars_defined) THEN 1364 DO nsrf=1,nbsrf 1365 zx_tmp_fi2d(:)=zx_tmp_fi2d(:) & 1366 +pctsrf(:,nsrf)*delta_tsurf(:,nsrf) 1367 ENDDO 1368 ENDIF 1369 CALL histwrite_phy(o_delta_tsurf,zx_tmp_fi2d) 1361 1370 CALL histwrite_phy(o_cdragh_x ,cdragh_x ) 1362 1371 CALL histwrite_phy(o_cdragh_w ,cdragh_w )
Note: See TracChangeset
for help on using the changeset viewer.