- Timestamp:
- 2015-12-16T10:25:22+01:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2015/dev_merge_2015/NEMOGCM/NEMO/TOP_SRC/TRP/trcsbc.F90
r5836 r6060 31 31 32 32 !! * Substitutions 33 # include "domzgr_substitute.h90"34 33 # include "vectopt_loop_substitute.h90" 35 34 !!---------------------------------------------------------------------- … … 76 75 ! 77 76 ! Allocate temporary workspace 78 CALL wrk_alloc( jpi, jpj,zsfx )79 IF( l_trdtrc ) CALL wrk_alloc( jpi, jpj, jpk,ztrtrd )77 CALL wrk_alloc( jpi,jpj, zsfx ) 78 IF( l_trdtrc ) CALL wrk_alloc( jpi,jpj,jpk, ztrtrd ) 80 79 ! 81 80 zrtrn = 1.e-15_wp … … 129 128 ! Coupling offline : runoff are in emp which contains E-P-R 130 129 ! 131 IF( .NOT. lk_offline .AND. lk_vvl) THEN ! online coupling with vvl130 IF( .NOT. lk_offline .AND. .NOT.ln_linssh ) THEN ! online coupling with vvl 132 131 zsfx(:,:) = 0._wp 133 132 ELSE ! online coupling free surface or offline with free surface … … 138 137 DO jn = 1, jptra 139 138 ! 140 IF( l_trdtrc ) ztrtrd(:,:,:) = tra(:,:,:,jn) ! save trends 141 ! ! add the trend to the general tracer trend 139 IF( l_trdtrc ) ztrtrd(:,:,:) = tra(:,:,:,jn) ! save trends 142 140 143 141 IF ( nn_ice_tr == -1 ) THEN ! No tracers in sea ice (null concentration in sea ice) … … 153 151 DO jj = 2, jpj 154 152 DO ji = fs_2, fs_jpim1 ! vector opt. 155 zse3t = 1. / fse3t(ji,jj,1)153 zse3t = 1. / e3t_n(ji,jj,1) 156 154 ! tracer flux at the ice/ocean interface (tracer/m2/s) 157 155 zftra = - trc_i(ji,jj,jn) * fmmflx(ji,jj) ! uptake of tracer in the sea ice … … 174 172 DO jj = 2, jpj 175 173 DO ji = fs_2, fs_jpim1 ! vector opt. 176 zse3t = zfact / fse3t(ji,jj,1)174 zse3t = zfact / e3t_n(ji,jj,1) 177 175 tra(ji,jj,1,jn) = tra(ji,jj,1,jn) + ( sbc_trc_b(ji,jj,jn) + sbc_trc(ji,jj,jn) ) * zse3t 178 176 END DO … … 203 201 CALL prt_ctl_trc( tab4d=tra, mask=tmask, clinfo=ctrcnm, clinfo2='trd' ) 204 202 ENDIF 205 CALL wrk_dealloc( jpi, jpj,zsfx )206 IF( l_trdtrc ) CALL wrk_dealloc( jpi, jpj, jpk,ztrtrd )203 CALL wrk_dealloc( jpi,jpj, zsfx ) 204 IF( l_trdtrc ) CALL wrk_dealloc( jpi,jpj,jpk, ztrtrd ) 207 205 ! 208 206 IF( nn_timing == 1 ) CALL timing_stop('trc_sbc')
Note: See TracChangeset
for help on using the changeset viewer.