Changeset 13132 for NEMO/trunk/src/OCE/SBC/sbcblk.F90
- Timestamp:
- 2020-06-19T11:37:21+02:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/OCE/SBC/sbcblk.F90
r13110 r13132 627 627 628 628 END SELECT 629 630 CALL iom_put("Cd_oce", zcd_oce) 631 CALL iom_put("Ce_oce", zce_oce) 632 CALL iom_put("Ch_oce", zch_oce) 629 630 IF( iom_use('Cd_oce') ) CALL iom_put("Cd_oce", zcd_oce * tmask(:,:,1)) 631 IF( iom_use('Ce_oce') ) CALL iom_put("Ce_oce", zce_oce * tmask(:,:,1)) 632 IF( iom_use('Ch_oce') ) CALL iom_put("Ch_oce", zch_oce * tmask(:,:,1)) 633 !! LB: mainly here for debugging purpose: 634 IF( iom_use('theta_zt') ) CALL iom_put("theta_zt", (ztpot-rt0) * tmask(:,:,1)) ! potential temperature at z=zt 635 IF( iom_use('q_zt') ) CALL iom_put("q_zt", zqair * tmask(:,:,1)) ! specific humidity " 636 IF( iom_use('theta_zu') ) CALL iom_put("theta_zu", (t_zu -rt0) * tmask(:,:,1)) ! potential temperature at z=zu 637 IF( iom_use('q_zu') ) CALL iom_put("q_zu", q_zu * tmask(:,:,1)) ! specific humidity " 638 IF( iom_use('ssq') ) CALL iom_put("ssq", pssq * tmask(:,:,1)) ! saturation specific humidity at z=0 639 IF( iom_use('wspd_blk') ) CALL iom_put("wspd_blk", zU_zu * tmask(:,:,1)) ! bulk wind speed at z=zu 633 640 634 641 IF( ln_skin_cs .OR. ln_skin_wl ) THEN … … 883 890 ENDIF 884 891 885 CALL iom_put("Cd_ice", Cd_ice)886 CALL iom_put("Ce_ice", Ce_ice)887 CALL iom_put("Ch_ice", Ch_ice)892 IF( iom_use('Cd_ice') ) CALL iom_put("Cd_ice", Cd_ice) 893 IF( iom_use('Ce_ice') ) CALL iom_put("Ce_ice", Ce_ice) 894 IF( iom_use('Ch_ice') ) CALL iom_put("Ch_ice", Ch_ice) 888 895 889 896 ! local scalars ( place there for vector optimisation purposes)
Note: See TracChangeset
for help on using the changeset viewer.