Changeset 6295 for branches/NERC
- Timestamp:
- 2016-02-05T11:32:17+01: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
r6288 r6295 97 97 jn = jp_idtra0 + jl - 1 98 98 99 DO jj = 1, jpj 100 DO ji = 1, jpi 99 !! DO jj = 1, jpj 100 !! DO ji = 1, jpi 101 DO jj = 2,jpjm1 102 DO ji = 2,jpim1 103 101 104 !! First, a crude version. will be much inproved later. 102 105 qtr_idtra(ji,jj,jl) = (1. - trb(ji,jj,1,jn)) * tmask(ji,jj,1) * & … … 119 122 120 123 DO jk =1,jpk 121 DO jj=1,jpj 122 DO ji =1,jpi 124 !! DO jj=1,jpj 125 !! DO ji =1,jpi 126 DO jj = 2,jpjm1 127 DO ji = 2,jpim1 128 123 129 ! IF (trn(ji,jj,jk,jn) > 0.0) THEN 124 130 WTEMP = trn(ji,jj,jk,jn) * (1. - FDEC )
Note: See TracChangeset
for help on using the changeset viewer.