Changeset 10271
- Timestamp:
- 2018-11-01T12:26:10+01:00 (6 years ago)
- Location:
- branches/UKMO/dev_r10171_test_crs_AMM7/NEMOGCM/NEMO/OPA_SRC
- Files:
-
- 2 edited
-
CRS/crsdom.F90 (modified) (1 diff)
-
LDF/ldftra_substitute.h90 (modified) (1 diff)
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r10171_test_crs_AMM7/NEMOGCM/NEMO/OPA_SRC/CRS/crsdom.F90
r10239 r10271 153 153 CASE ( 'T' ) 154 154 DO jj = nldj_crs, nlej_crs 155 ijj = mjs_crs(jj) + +INT(0.5*nfacty(jj))155 ijj = mjs_crs(jj) + INT(0.5*nfacty(jj)) 156 156 DO ji = nldi_crs, nlei_crs 157 157 iji = mis_crs(ji) + INT(0.5*nfactx(ji)) -
branches/UKMO/dev_r10171_test_crs_AMM7/NEMOGCM/NEMO/OPA_SRC/LDF/ldftra_substitute.h90
r10207 r10271 62 62 # define fsahtu_crs(i,j,k) rldf * aht0 * r_fact_lap_crs(i,j,k) 63 63 # define fsahtv_crs(i,j,k) rldf * aht0 64 # define fsahtw (_crsi,j,k) rldf * aht064 # define fsahtw_crs(i,j,k) rldf * aht0 65 65 #endif 66 66 #endif
Note: See TracChangeset
for help on using the changeset viewer.
