Changeset 10390 for branches/UKMO/AMM15_v3_6_STABLE_package_collate/NEMOGCM/NEMO/OPA_SRC/DIA/diatmb.F90
- Timestamp:
- 2018-12-14T13:53:52+01:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/AMM15_v3_6_STABLE_package_collate/NEMOGCM/NEMO/OPA_SRC/DIA/diatmb.F90
r8561 r10390 11 11 USE iom ! I/0 library 12 12 USE wrk_nemo ! working arrays 13 #if defined key_fabm 14 USE trc, ONLY: trn 15 USE par_fabm 16 USE fabm, ONLY: fabm_get_interior_diagnostic_data 17 #endif 13 18 14 19 … … 133 138 REAL(wp), POINTER, DIMENSION(:,:,:) :: zwtmb ! temporary workspace 134 139 REAL(wp) :: zmdi ! set masked values 140 INTEGER :: jn ! loop counter 135 141 136 142 zmdi=1.e+20 !missing data indicator for maskin … … 162 168 CALL iom_put( "bot_v" , zwtmb(:,:,3) ) ! tmb V Velocity 163 169 !Called in dynspg_ts.F90 CALL iom_put( "baro_v" , vn_b ) ! Barotropic V Velocity 170 171 #if defined key_fabm 172 DO jn = 1, jp_fabm 173 CALL dia_calctmb( trn(:,:,:,jp_fabm_m1+jn), zwtmb ) 174 CALL iom_put( "top_"//TRIM(model%state_variables(jn)%name) , zwtmb(:,:,1) ) 175 CALL iom_put( "mid_"//TRIM(model%state_variables(jn)%name) , zwtmb(:,:,2) ) 176 CALL iom_put( "bot_"//TRIM(model%state_variables(jn)%name) , zwtmb(:,:,3) ) 177 END DO 178 DO jn = 1, jp_fabm_3d 179 CALL dia_calctmb( fabm_get_interior_diagnostic_data(model, jn), zwtmb ) 180 CALL iom_put( "top_"//TRIM(model%diagnostic_variables(jn)%name) , zwtmb(:,:,1) ) 181 CALL iom_put( "mid_"//TRIM(model%diagnostic_variables(jn)%name) , zwtmb(:,:,2) ) 182 CALL iom_put( "bot_"//TRIM(model%diagnostic_variables(jn)%name) , zwtmb(:,:,3) ) 183 END DO 184 #endif 164 185 ELSE 165 186 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.