- Timestamp:
- 2015-10-31T08:40:45+01:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2015/dev_r5836_NOC3_vvl_by_default/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfddm.F90
r5836 r5845 44 44 45 45 !! * Substitutions 46 # include "domzgr_substitute.h90"47 46 # include "vectopt_loop_substitute.h90" 48 47 !!---------------------------------------------------------------------- … … 115 114 DO jj = 1, jpj ! R=zrau = (alpha / beta) (dk[t] / dk[s]) 116 115 DO ji = 1, jpi 117 zrw = ( fsdepw(ji,jj,jk ) - fsdept(ji,jj,jk) ) &118 & / ( fsdept(ji,jj,jk-1) - fsdept(ji,jj,jk) )116 zrw = ( gdepw_n(ji,jj,jk ) - gdept_n(ji,jj,jk) ) & 117 & / ( gdept_n(ji,jj,jk-1) - gdept_n(ji,jj,jk) ) 119 118 ! 120 119 zaw = ( rab_n(ji,jj,jk,jp_tem) * (1. - zrw) + rab_n(ji,jj,jk-1,jp_tem) * zrw ) &
Note: See TracChangeset
for help on using the changeset viewer.