New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 6295 for branches/NERC – NEMO

Changeset 6295 for branches/NERC


Ignore:
Timestamp:
2016-02-05T11:32:17+01:00 (8 years ago)
Author:
jpalmier
Message:

JPALM -- 05-02-2016 -- update IDTRA

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/NERC/dev_r5518_NOC_MEDUSA_Stable/NEMOGCM/NEMO/TOP_SRC/IDTRA/trcsms_idtra.F90

    r6288 r6295  
    9797         jn = jp_idtra0 + jl - 1 
    9898 
    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 
    101104         !! First, a crude version. will be much inproved later. 
    102105             qtr_idtra(ji,jj,jl)  = (1. - trb(ji,jj,1,jn)) * tmask(ji,jj,1) *   &  
     
    119122 
    120123         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             
    123129               !  IF (trn(ji,jj,jk,jn) > 0.0) THEN 
    124130                    WTEMP = trn(ji,jj,jk,jn) * (1. - FDEC ) 
Note: See TracChangeset for help on using the changeset viewer.