Changeset 6829 for branches/NERC/dev_r5518_NOC_MEDUSA_Stable/NEMOGCM/NEMO/TOP_SRC/IDTRA/trcsms_idtra.F90
- Timestamp:
- 2016-08-01T18:30:32+02:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/NERC/dev_r5518_NOC_MEDUSA_Stable/NEMOGCM/NEMO/TOP_SRC/IDTRA/trcsms_idtra.F90
r6810 r6829 133 133 DO ji = 2,jpim1 134 134 135 IF (trn(ji,jj,jk,jn) > 0.0) THEN135 !! IF (trn(ji,jj,jk,jn) > 0.0) THEN 136 136 WTEMP = trn(ji,jj,jk,jn) * (1. - FDEC ) 137 137 tra(ji,jj,jk,jn) = (tra(ji,jj,jk,jn) - WTEMP/rdt ) * & 138 138 tmask(ji,jj,jk) 139 ELSE 140 trn(ji,jj,jk,jn) = 0.0 141 tra(ji,jj,jk,jn) = 0.0 142 ENDIF 139 !! ENDIF 143 140 ENDDO 144 141 ENDDO
Note: See TracChangeset
for help on using the changeset viewer.