Changeset 320 for trunk/NEMO
- Timestamp:
- 2005-09-30T19:04:13+02:00 (19 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/DIA/diawri_dimg.h90
r247 r320 43 43 !! level 1: taux(:,:) * umask(:,:,1) zonal stress in N.m-2 44 44 !! level 2: tauy(:,:) * vmask(:,:,1) meridional stress in N. m-2 45 !! level 3: q (:,:) + qsr(:,:)total heat flux (W/m2)45 !! level 3: qt (:,:) total heat flux (W/m2) 46 46 !! level 4: emp (:,:) E-P flux (mm/day) 47 47 !! level 5: tb (:,:,1)-sst model SST -forcing sst (degree C) … … 160 160 fsel(:,:,1 ) = fsel(:,:,1 ) + taux(:,:) * umask(:,:,1) 161 161 fsel(:,:,2 ) = fsel(:,:,2 ) + tauy(:,:) * vmask(:,:,1) 162 fsel(:,:,3 ) = fsel(:,:,3 ) + q (:,:) + qsr(:,:)162 fsel(:,:,3 ) = fsel(:,:,3 ) + qt (:,:) 163 163 fsel(:,:,4 ) = fsel(:,:,4 ) + emp (:,:) 164 164 fsel(:,:,5 ) = fsel(:,:,5 ) + tb (:,:,1) - sst(:,:) … … 236 236 fsel(:,:,1 ) = taux(:,:) * umask(:,:,1) 237 237 fsel(:,:,2 ) = tauy(:,:) * vmask(:,:,1) 238 fsel(:,:,3 ) = q (:,:) + qsr(:,:)238 fsel(:,:,3 ) = qt (:,:) 239 239 fsel(:,:,4 ) = emp (:,:) 240 240 fsel(:,:,5 ) = (tb (:,:,1) -sst(:,:)) *tmask(:,:,1)
Note: See TracChangeset
for help on using the changeset viewer.