Changeset 8087


Ignore:
Timestamp:
2017-05-30T09:44:02+02:00 (3 years ago)
Author:
cbricaud
Message:

revert CRS branch to 7806

Location:
branches/2015/dev_r5003_MERCATOR6_CRS/NEMOGCM/NEMO
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • branches/2015/dev_r5003_MERCATOR6_CRS/NEMOGCM/NEMO/OPA_SRC/LDF/ldftra_substitute.h90

    r8086 r8087  
    6262#      define   fsahtu_crs(i,j,k)   rldf * aht0 * r_fact_lap_crs(i,j,k) 
    6363#      define   fsahtv_crs(i,j,k)   rldf * aht0 
    64 #      define   fsahtw_crs(i,j,k)   rldf * aht0 
    65  
     64#      define   fsahtw(_crsi,j,k)   rldf * aht0 
    6665#endif 
    6766#endif 
  • branches/2015/dev_r5003_MERCATOR6_CRS/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfmxl.F90

    r8086 r8087  
    9797         IF(lwp) WRITE(numout,*) '~~~~~~~ ' 
    9898         !                             ! allocate zdfmxl arrays 
    99          IF( zdf_mxl_alloc() /= 0 )   CALL ctl_stop( 'STOP', 'zdf_mxl : unable to allocate arrays' ) 
    10099      ENDIF 
    101100 
  • branches/2015/dev_r5003_MERCATOR6_CRS/NEMOGCM/NEMO/TOP_SRC/TRP/trcldf_crs.F90

    r8086 r8087  
    1818   USE trc             ! ocean passive tracers variables 
    1919   USE trcnam_trp      ! passive tracers transport namelist variables 
    20    !USE ldftra_oce      ! lateral diffusion coefficient on tracers 
    21    USE ldftra_oce,ONLY: ln_traldf_grif,rn_aht_0,rn_ahtb_0,lk_traldf_eiv     ! lateral diffusion coefficient on tracers 
     20   USE ldftra_oce      ! lateral diffusion coefficient on tracers 
    2221   USE ldfslp          ! ??? 
    2322   USE traldf_bilapg   ! lateral mixing            (tra_ldf_bilapg routine) 
     
    5958      INTEGER, INTENT( in ) ::   kt   ! ocean time-step index 
    6059      !! 
    61       INTEGER            :: ji,jj,jk,jn 
    62       REAL(wp)           :: zdep 
     60      INTEGER            :: jn 
    6361      CHARACTER (len=22) :: charout 
    6462      REAL(wp), POINTER, DIMENSION(:,:,:,:) ::   ztrtrd 
     
    7068 
    7169      rldf = rldf_rat 
    72       ! 
    73       r_fact_lap(:,:,:) = 1. 
    74       DO jk= 1, jpk 
    75          DO jj = 1, jpj 
    76             DO ji = 1, jpi 
    77                IF( fsdept(ji,jj,jk) > 200. .AND. gphit(ji,jj) < 5. .AND. gphit(ji,jj) > -5. ) THEN 
    78                   zdep = MAX( fsdept(ji,jj,jk) - 1000., 0. ) / 1000. 
    79                   r_fact_lap(ji,jj,jk) = MAX( 1., rn_fact_lap * EXP( -zdep ) ) 
    80                ENDIF 
    81             END DO 
    82          END DO 
    83       END DO 
    8470 
    8571      IF( l_trdtrc )  THEN 
Note: See TracChangeset for help on using the changeset viewer.