Changeset 14901
- Timestamp:
- 2021-05-25T23:02:44+02:00 (3 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2021/dev_r14122_HPC-08_Mueller_OSMOSIS_streamlining/src/OCE/ZDF/zdfosm.F90
r14900 r14901 655 655 jk_ext(:,:) = nbld(A2D((nn_hls-1))) - nmld(A2D((nn_hls-1))) + jk_ext(:,:) + 1 ! ag 19/03 656 656 CALL zdf_osm_vertical_average( Kbb, Kmm, & 657 & nmld - 1,av_t_ml(A2D((nn_hls-1))), &657 & nmld(A2D((nn_hls-1))) - 1, av_t_ml(A2D((nn_hls-1))), & 658 658 & av_s_ml(A2D((nn_hls-1))), av_b_ml(A2D((nn_hls-1))), & 659 659 & av_u_ml(A2D((nn_hls-1))), av_v_ml(A2D((nn_hls-1))), & … … 950 950 CALL zdf_osm_iomput( "wmp_NP", ( 2.0_wp * rpi * 1.026_wp / ( 0.877_wp * grav ) ) * & ! Wave mean period from NP 951 951 & wndm(A2D(0)) * tmask(A2D(0),1) ) ! spectrum 952 CALL zdf_osm_iomput( "hsw_NP", ( 0.22_wp / grav ) * wndm **2 * tmask(A2D(0),1) )! Significant wave height from952 CALL zdf_osm_iomput( "hsw_NP", ( 0.22_wp / grav ) * wndm(A2D(0))**2 * tmask(A2D(0),1) ) ! Significant wave height from 953 953 ! ! NP spectrum 954 954 CALL zdf_osm_iomput( "wndm", wndm(A2D(0)) * tmask(A2D(0),1) ) ! U_10 … … 2370 2370 ! 2371 2371 IF ( ln_dia_osm ) THEN 2372 CALL iom_put( "zwth_ent", tmask(A2D(0),1) * zwth_ent(A2D(0)) ) ! Upward turb. temperature entrainment flux2373 CALL iom_put( "zws_ent", tmask(A2D(0),1) * zws_ent(A2D(0)) ) ! Upward turb. salinity entrainment flux2372 CALL zdf_osm_iomput( "zwth_ent", tmask(A2D(0),1) * zwth_ent(A2D(0)) ) ! Upward turb. temperature entrainment flux 2373 CALL zdf_osm_iomput( "zws_ent", tmask(A2D(0),1) * zws_ent(A2D(0)) ) ! Upward turb. salinity entrainment flux 2374 2374 END IF 2375 2375 ! … … 2432 2432 ! 2433 2433 IF ( ln_dia_osm ) THEN 2434 CALL iom_put( "ghamu_0", wmask(A2D(0),:) * ghamu(A2D(0),:) )2435 CALL iom_put( "zsc_uw_1_0", tmask(A2D(0),1) * zsc_uw_1(A2D(0)) )2434 CALL zdf_osm_iomput( "ghamu_0", wmask(A2D(0),:) * ghamu(A2D(0),:) ) 2435 CALL zdf_osm_iomput( "zsc_uw_1_0", tmask(A2D(0),1) * zsc_uw_1(A2D(0)) ) 2436 2436 END IF 2437 2437 !
Note: See TracChangeset
for help on using the changeset viewer.