- Timestamp:
- 2011-12-11T16:00:26+01:00 (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2011/DEV_r2739_STFC_dCSE/NEMOGCM/NEMO/OPA_SRC/DTA/dtatem.F90
r2715 r3211 32 32 33 33 TYPE(FLD), ALLOCATABLE, DIMENSION(:) :: sf_tem ! structure of input SST (file informations, fields read) 34 35 !! * Control permutation of array indices 36 # include "dtatem_ftrans.h90" 37 # include "oce_ftrans.h90" 38 # include "dom_oce_ftrans.h90" 34 39 35 40 !! * Substitutions … … 171 176 #endif 172 177 178 #if defined key_z_first 179 !! DCSE_NEMO: Beware! These arrays will not be conformable after permuting indices of t_dta 180 DO jk = 1, jpk 181 DO jj = 1, jpj 182 DO ji = 1, jpi 183 t_dta(ji,jj,jk) = sf_tem(1)%fnow(ji,jj,jk) 184 END DO 185 END DO 186 END DO 187 #else 173 188 t_dta(:,:,:) = sf_tem(1)%fnow(:,:,:) 189 #endif 190 174 191 175 192 IF( ln_sco ) THEN
Note: See TracChangeset
for help on using the changeset viewer.