Changeset 12028 for NEMO/branches/2019/dev_r11085_ASINTER-05_Brodeau_Advanced_Bulk/src/OCE/SBC/sbcblk.F90
- Timestamp:
- 2019-12-02T16:50:28+01:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/dev_r11085_ASINTER-05_Brodeau_Advanced_Bulk/src/OCE/SBC/sbcblk.F90
r12024 r12028 641 641 #endif 642 642 ! 643 CALL iom_put( "rho_air" , rhoa ) ! output air density (kg/m^3) !#LB 644 CALL iom_put( "evap_oce" , zevap ) ! evaporation 643 CALL iom_put( "rho_air" , rhoa*tmask(:,:,1) ) ! output air density [kg/m^3] 644 CALL iom_put( "evap_oce" , zevap ) ! evaporation 645 CALL iom_put( "qlw_oce" , zqlw ) ! output downward longwave heat over the ocean 646 CALL iom_put( "qsb_oce" , zqsb ) ! output downward sensible heat over the ocean 647 CALL iom_put( "qla_oce" , zqla ) ! output downward latent heat over the ocean 648 tprecip(:,:) = sf(jp_prec)%fnow(:,:,1) * rn_pfac * tmask(:,:,1) ! output total precipitation [kg/m2/s] 649 sprecip(:,:) = sf(jp_snow)%fnow(:,:,1) * rn_pfac * tmask(:,:,1) ! output solid precipitation [kg/m2/s] 650 CALL iom_put( 'snowpre', sprecip ) ! Snow 651 CALL iom_put( 'precip' , tprecip ) ! Total precipitation 645 652 ! 646 653 IF ( nn_ice == 0 ) THEN 647 CALL iom_put( "qlw_oce" , zqlw ) ! output downward longwave heat over the ocean648 CALL iom_put( "qsb_oce" , zqsb ) ! output downward sensible heat over the ocean649 CALL iom_put( "qla_oce" , zqla ) ! output downward latent heat over the ocean650 654 CALL iom_put( "qemp_oce" , qns-zqlw-zqsb-zqla ) ! output downward heat content of E-P over the ocean 651 655 CALL iom_put( "qns_oce" , qns ) ! output downward non solar heat over the ocean 652 656 CALL iom_put( "qsr_oce" , qsr ) ! output downward solar heat over the ocean 653 657 CALL iom_put( "qt_oce" , qns+qsr ) ! output total downward heat over the ocean 654 tprecip(:,:) = sf(jp_prec)%fnow(:,:,1) * rn_pfac * tmask(:,:,1) ! output total precipitation [kg/m2/s] 655 sprecip(:,:) = sf(jp_snow)%fnow(:,:,1) * rn_pfac * tmask(:,:,1) ! output solid precipitation [kg/m2/s] 656 CALL iom_put( 'snowpre', sprecip ) ! Snow 657 CALL iom_put( 'precip' , tprecip ) ! Total precipitation 658 ENDIF 658 ENDIF 659 ! 659 660 IF( ln_skin_cs .OR. ln_skin_wl ) THEN 660 661 CALL iom_put( "t_skin" , (zst - rt0) * tmask(:,:,1) ) ! T_skin in Celsius
Note: See TracChangeset
for help on using the changeset viewer.