- Timestamp:
- 2017-04-13T16:21:08+02:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_r7881_no_wrk_alloc/NEMOGCM/NEMO/OPA_SRC/DIA/diatmb.F90
r7646 r7910 12 12 USE in_out_manager ! I/O units 13 13 USE iom ! I/0 library 14 USE wrk_nemo ! working arrays15 14 16 15 … … 105 104 !!-------------------------------------------------------------------- 106 105 REAL(wp) :: zmdi =1.e+20 ! land value 107 REAL(wp), POINTER, DIMENSION(:,:,:) :: zwtmb ! workspace106 REAL(wp), DIMENSION(jpi,jpj,3) :: zwtmb ! workspace 108 107 !!-------------------------------------------------------------------- 109 108 ! 110 109 IF (ln_diatmb) THEN 111 CALL wrk_alloc( jpi,jpj,3 , zwtmb )112 110 CALL dia_calctmb( tsn(:,:,:,jp_tem),zwtmb ) 113 111 !ssh already output but here we output it masked … … 134 132 CALL iom_put( "bot_v" , zwtmb(:,:,3) ) ! tmb V Velocity 135 133 !Called in dynspg_ts.F90 CALL iom_put( "baro_v" , vn_b ) ! Barotropic V Velocity 136 CALL wrk_dealloc( jpi,jpj,3 , zwtmb )137 134 ELSE 138 135 CALL ctl_warn('dia_tmb: tmb diagnostic is set to false you should not have seen this')
Note: See TracChangeset
for help on using the changeset viewer.