Ignore:
Timestamp:
2016-11-18T13:27:57+01:00 (4 years ago)
Author:
jamesharle
Message:

branch: NERC/dev_r6998_ORCHESTRA. merge with trunk@7161

Location:
branches/NERC/dev_r6998_ORCHESTRA/NEMOGCM
Files:
3 edited
2 copied

Legend:

Unmodified
Added
Removed
  • branches/NERC/dev_r6998_ORCHESTRA/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfric.F90

    r6489 r7268  
    162162                  &                               + avmv(ji,jj,jk) + avmv(ji,jj-1,jk)  )   & 
    163163                  &          + avtb(jk) * tmask(ji,jj,jk) 
    164                !                                            ! Add the background coefficient on eddy viscosity 
     164            END DO 
     165         END DO 
     166         DO jj = 2, jpjm1                                   ! Add the background coefficient on eddy viscosity 
     167            DO ji = fs_2, fs_jpim1 
    165168               avmu(ji,jj,jk) = avmu(ji,jj,jk) + avmb(jk) * umask(ji,jj,jk) 
    166169               avmv(ji,jj,jk) = avmv(ji,jj,jk) + avmb(jk) * vmask(ji,jj,jk) 
  • branches/NERC/dev_r6998_ORCHESTRA/NEMOGCM/NEMO/TOP_SRC/trcrst.F90

    r6140 r7268  
    295295         IF(lwp) WRITE(numout,9000) jn, TRIM( ctrcnm(jn) ), zmean, zmin, zmax, zdrift 
    296296      END DO 
    297       WRITE(numout,*)  
     297      IF(lwp) WRITE(numout,*)  
    2982989000  FORMAT(' tracer nb :',i2,'    name :',a10,'    mean :',e18.10,'    min :',e18.10, & 
    299299      &      '    max :',e18.10,'    drift :',e18.10, ' %') 
  • branches/NERC/dev_r6998_ORCHESTRA/NEMOGCM/NEMO/TOP_SRC/trcsub.F90

    r6140 r7268  
    1616   USE in_out_manager 
    1717   USE lbclnk 
    18 #if defined key_zdftke 
    19    USE zdftke          ! twice TKE (en) 
    20 #endif 
    21 #if defined key_zdfgls 
    22    USE zdfgls, ONLY: en 
    23 #endif 
    2418   USE trabbl 
    2519   USE zdf_oce 
Note: See TracChangeset for help on using the changeset viewer.