Changeset 1057 for trunk/NEMO/OPA_SRC/DIA/diawri_dimg.h90
- Timestamp:
- 2008-06-04T20:44:44+02:00 (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/DIA/diawri_dimg.h90
r1037 r1057 170 170 fsel(:,:,3 ) = fsel(:,:,3 ) + qsr (:,:) + qns (:,:) 171 171 fsel(:,:,4 ) = fsel(:,:,4 ) + emp (:,:) 172 fsel(:,:,5 ) = fsel(:,:,5 ) + tb (:,:,1) - s st(:,:)172 fsel(:,:,5 ) = fsel(:,:,5 ) + tb (:,:,1) - sf_sst(1)%fnow(:,:) 173 173 #if ! defined key_dynspg_rl 174 174 fsel(:,:,6 ) = fsel(:,:,6 ) + sshn(:,:) ! SSH … … 182 182 fsel(:,:,11) = fsel(:,:,11) + hmlp(:,:) 183 183 fsel(:,:,12) = fsel(:,:,12) + fr_i(:,:) 184 fsel(:,:,13) = fsel(:,:,13) + s st(:,:)184 fsel(:,:,13) = fsel(:,:,13) + sf_sst(1)%fnow(:,:) 185 185 ! fsel(:,:,14) = fsel(:,:,14) + qct(:,:) 186 186 ! fsel(:,:,15) = fsel(:,:,15) + fbt(:,:) … … 249 249 fsel(:,:,1 ) = utau(:,:) * umask(:,:,1) 250 250 fsel(:,:,2 ) = vtau(:,:) * vmask(:,:,1) 251 fsel(:,:,3 ) = (qsr (:,:) + qn r(:,:)) * tmask(:,:,1)251 fsel(:,:,3 ) = (qsr (:,:) + qns (:,:)) * tmask(:,:,1) 252 252 fsel(:,:,4 ) = emp (:,:) * tmask(:,:,1) 253 fsel(:,:,5 ) = (tb (:,:,1) - sst(:,:)) *tmask(:,:,1)253 fsel(:,:,5 ) = (tb (:,:,1) - sf_sst(1)%fnow(:,:) ) *tmask(:,:,1) 254 254 255 255 #if ! defined key_dynspg_rl … … 264 264 fsel(:,:,11) = hmlp(:,:) * tmask(:,:,1) 265 265 fsel(:,:,12) = fr_i(:,:) * tmask(:,:,1) 266 fsel(:,:,13) = sst(:,:)266 fsel(:,:,13) = sf_sst(1)%fnow(:,:) 267 267 ! fsel(:,:,14) = qct(:,:) 268 268 ! fsel(:,:,15) = fbt(:,:)
Note: See TracChangeset
for help on using the changeset viewer.