- Timestamp:
- 2015-11-06T11:42:35+01:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2015/dev_r5836_NOC3_vvl_by_default/NEMOGCM/NEMO/TOP_SRC/TRP/trcsbc.F90
r5845 r5866 75 75 ! 76 76 ! Allocate temporary workspace 77 CALL wrk_alloc( jpi, jpj,zsfx )78 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 ) 79 79 ! 80 80 zrtrn = 1.e-15_wp … … 128 128 ! Coupling offline : runoff are in emp which contains E-P-R 129 129 ! 130 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 131 131 zsfx(:,:) = 0._wp 132 132 ELSE ! online coupling free surface or offline with free surface … … 137 137 DO jn = 1, jptra 138 138 ! 139 IF( l_trdtrc ) ztrtrd(:,:,:) = tra(:,:,:,jn) ! save trends 140 ! ! add the trend to the general tracer trend 139 IF( l_trdtrc ) ztrtrd(:,:,:) = tra(:,:,:,jn) ! save trends 141 140 142 141 IF ( nn_ice_tr == -1 ) THEN ! No tracers in sea ice (null concentration in sea ice) … … 202 201 CALL prt_ctl_trc( tab4d=tra, mask=tmask, clinfo=ctrcnm, clinfo2='trd' ) 203 202 ENDIF 204 CALL wrk_dealloc( jpi, jpj,zsfx )205 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 ) 206 205 ! 207 206 IF( nn_timing == 1 ) CALL timing_stop('trc_sbc')
Note: See TracChangeset
for help on using the changeset viewer.