Changeset 5972 for branches/2014/dev_r4650_UKMO14.5_SST_BIAS_CORRECTION/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfddm.F90
- Timestamp:
- 2015-12-02T09:52:20+01:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2014/dev_r4650_UKMO14.5_SST_BIAS_CORRECTION/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfddm.F90
r5967 r5972 9 9 !! 3.6 ! 2013-04 (G. Madec, F. Roquet) zrau compute locally using interpolation of alpha & beta 10 10 !!---------------------------------------------------------------------- 11 #if defined key_zdfddm || defined key_esopa11 #if defined key_zdfddm 12 12 !!---------------------------------------------------------------------- 13 13 !! 'key_zdfddm' : double diffusion … … 162 162 ! ------------------ 163 163 ! Constant eddy coefficient: reset to the background value 164 !CDIR NOVERRCHK165 164 DO jj = 1, jpj 166 !CDIR NOVERRCHK167 165 DO ji = 1, jpi 168 166 zinr = 1._wp / zrau(ji,jj)
Note: See TracChangeset
for help on using the changeset viewer.