- Timestamp:
- 2020-01-27T15:31:53+01:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/dev_r11943_MERGE_2019/src/TOP/TRP/trcldf.F90
r12236 r12340 44 44 !! * Substitutions 45 45 # include "vectopt_loop_substitute.h90" 46 # include "do_loop_substitute.h90" 46 47 !!---------------------------------------------------------------------- 47 48 !! NEMO/TOP 4.0 , NEMO Consortium (2018) … … 81 82 zahv(:,:,:) = rldf * ahtv(:,:,:) 82 83 ! !* Enhanced zonal diffusivity coefficent in the equatorial domain 83 DO jk= 1, jpk 84 DO jj = 1, jpj 85 DO ji = 1, jpi 86 IF( gdept(ji,jj,jk,Kmm) > 200. .AND. gphit(ji,jj) < 5. .AND. gphit(ji,jj) > -5. ) THEN 87 zdep = MAX( gdept(ji,jj,jk,Kmm) - 1000., 0. ) / 1000. 88 zahu(ji,jj,jk) = zahu(ji,jj,jk) * MAX( 1., rn_fact_lap * EXP( -zdep ) ) 89 ENDIF 90 END DO 91 END DO 92 END DO 84 DO_3D_11_11( 1, jpk ) 85 IF( gdept(ji,jj,jk,Kmm) > 200. .AND. gphit(ji,jj) < 5. .AND. gphit(ji,jj) > -5. ) THEN 86 zdep = MAX( gdept(ji,jj,jk,Kmm) - 1000., 0. ) / 1000. 87 zahu(ji,jj,jk) = zahu(ji,jj,jk) * MAX( 1., rn_fact_lap * EXP( -zdep ) ) 88 ENDIF 89 END_3D 93 90 ! 94 91 SELECT CASE ( nldf_trc ) !* compute lateral mixing trend and add it to the general trend
Note: See TracChangeset
for help on using the changeset viewer.