- Timestamp:
- 2011-12-11T16:00:26+01:00 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2011/DEV_r2739_STFC_dCSE/NEMOGCM/NEMO/OPA_SRC/C1D/dyncor_c1d.F90
r2409 r3211 25 25 PUBLIC cor_c1d ! routine called by OPA.F90 26 26 PUBLIC dyn_cor_c1d ! routine called by step1d.F90 27 28 !! * Array index permutations 29 # include "oce_ftrans.h90" 30 # include "dom_oce_ftrans.h90" 27 31 28 32 !! * Substitutions … … 96 100 ENDIF 97 101 ! 102 #if defined key_z_first 103 DO jj = 2, jpjm1 104 DO ji = 2, jpim1 105 DO jk = 1, jpkm1 106 #else 98 107 DO jk = 1, jpkm1 99 108 DO jj = 2, jpjm1 100 109 DO ji = fs_2, fs_jpim1 ! vector opt. 110 #endif 101 111 ua(ji,jj,jk) = ua(ji,jj,jk) + ff(ji,jj) * vn(ji,jj,jk) 102 112 va(ji,jj,jk) = va(ji,jj,jk) - ff(ji,jj) * un(ji,jj,jk)
Note: See TracChangeset
for help on using the changeset viewer.