Changeset 3294 for trunk/NEMOGCM/NEMO/OPA_SRC/LDF/ldftra_substitute.h90
- Timestamp:
- 2012-01-28T17:44:18+01:00 (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/NEMO/OPA_SRC/LDF/ldftra_substitute.h90
r2528 r3294 12 12 #if defined key_traldf_c3d 13 13 ! 'key_traldf_c3d' : aht: 3D coefficient 14 # define fsahtt(i,j,k) ahtt(i,j,k)15 # define fsahtu(i,j,k) ahtu(i,j,k)16 # define fsahtv(i,j,k) ahtv(i,j,k)17 # define fsahtw(i,j,k) ahtw(i,j,k)14 # define fsahtt(i,j,k) rldf * ahtt(i,j,k) 15 # define fsahtu(i,j,k) rldf * ahtu(i,j,k) 16 # define fsahtv(i,j,k) rldf * ahtv(i,j,k) 17 # define fsahtw(i,j,k) rldf * ahtw(i,j,k) 18 18 #elif defined key_traldf_c2d 19 19 ! 'key_traldf_c2d' : aht: 2D coefficient 20 # define fsahtt(i,j,k) ahtt(i,j)21 # define fsahtu(i,j,k) ahtu(i,j)22 # define fsahtv(i,j,k) ahtv(i,j)23 # define fsahtw(i,j,k) ahtw(i,j)20 # define fsahtt(i,j,k) rldf * ahtt(i,j) 21 # define fsahtu(i,j,k) rldf * ahtu(i,j) 22 # define fsahtv(i,j,k) rldf * ahtv(i,j) 23 # define fsahtw(i,j,k) rldf * ahtw(i,j) 24 24 #elif defined key_traldf_c1d 25 25 ! 'key_traldf_c1d' : aht: 1D coefficient 26 # define fsahtt(i,j,k) ahtt(k)27 # define fsahtu(i,j,k) ahtu(k)28 # define fsahtv(i,j,k) ahtv(k)29 # define fsahtw(i,j,k) ahtw(k)26 # define fsahtt(i,j,k) rldf * ahtt(k) 27 # define fsahtu(i,j,k) rldf * ahtu(k) 28 # define fsahtv(i,j,k) rldf * ahtv(k) 29 # define fsahtw(i,j,k) rldf * ahtw(k) 30 30 #else 31 31 ! Default option : aht: Constant coefficient 32 # define fsahtt(i,j,k) aht033 # define fsahtu(i,j,k) aht034 # define fsahtv(i,j,k) aht035 # define fsahtw(i,j,k) aht032 # define fsahtt(i,j,k) rldf * aht0 33 # define fsahtu(i,j,k) rldf * aht0 34 # define fsahtv(i,j,k) rldf * aht0 35 # define fsahtw(i,j,k) rldf * aht0 36 36 #endif
Note: See TracChangeset
for help on using the changeset viewer.