Changeset 2528 for trunk/NEMOGCM/NEMO/TOP_SRC/SED/seddta.F90
- Timestamp:
- 2010-12-27T18:33:53+01:00 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/NEMO/TOP_SRC/SED/seddta.F90
- Property svn:keywords set to Id
r1264 r2528 118 118 DO jj = 1,jpj 119 119 DO ji = 1, jpi 120 ikt = MAX( mbathy(ji,jj)-1, 1)120 ikt = mbkt(ji,jj) 121 121 IF ( tmask(ji,jj,ikt) == 1 ) THEN 122 122 trc_data(ji,jj,1) = trn (ji,jj,ikt,jptal) … … 131 131 trc_data(ji,jj,9 ) = sinking2(ji,jj,ikt) 132 132 trc_data(ji,jj,10) = sinkcal (ji,jj,ikt) 133 trc_data(ji,jj,11) = t n (ji,jj,ikt)134 trc_data(ji,jj,12) = sn (ji,jj,ikt)133 trc_data(ji,jj,11) = tsn (ji,jj,ikt,jp_tem) 134 trc_data(ji,jj,12) = tsn (ji,jj,ikt,jp_sal) 135 135 # else 136 136 trc_data(ji,jj,7 ) = sinksil (ji,jj,ikt) 137 137 trc_data(ji,jj,8 ) = sinking (ji,jj,ikt) 138 138 trc_data(ji,jj,9 ) = sinkcal (ji,jj,ikt) 139 trc_data(ji,jj,10) = t n (ji,jj,ikt)140 trc_data(ji,jj,11) = sn (ji,jj,ikt)139 trc_data(ji,jj,10) = tsn (ji,jj,ikt,jp_tem) 140 trc_data(ji,jj,11) = tsn (ji,jj,ikt,jp_sal) 141 141 # endif 142 142 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.