- Timestamp:
- 2016-01-12T19:42:58+01:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/NERC/dev_r5518_NOC_MEDUSA_Stable/NEMOGCM/NEMO/TOP_SRC/trcrst.F90
r6229 r6233 147 147 DO jn = 1, jptra 148 148 CALL iom_get( numrtr, jpdom_autoglo, 'TRN'//ctrcnm(jn), trn(:,:,:,jn) ) 149 trn(:,:,:,jn) = trn(:,:,:,jn) * tmask(:,:,:) 149 150 END DO 150 151 151 152 DO jn = 1, jptra 152 153 CALL iom_get( numrtr, jpdom_autoglo, 'TRB'//ctrcnm(jn), trb(:,:,:,jn) ) 154 trb(:,:,:,jn) = trb(:,:,:,jn) * tmask(:,:,:) 153 155 END DO 154 156
Note: See TracChangeset
for help on using the changeset viewer.