Changeset 899


Ignore:
Timestamp:
2008-04-22T18:15:19+02:00 (13 years ago)
Author:
rblod
Message:

First set of modifications related to 1D update : cometic changes, see ticket #117

Location:
trunk/NEMO
Files:
1 deleted
13 edited
5 moved

Legend:

Unmodified
Added
Removed
  • trunk/NEMO/C1D_SRC/c1d.F90

    r891 r899  
    44   !! Ocean state   :  1D initialization 
    55   !!===================================================================== 
    6 #if defined key_cfg_1d 
     6#if defined key_c1d 
    77   !!---------------------------------------------------------------------- 
    8    !!   'key_cfg_1d'               1D Configuration 
     8   !!   'key_cf1d'               1D Configuration 
    99   !!---------------------------------------------------------------------- 
    1010   !!   init_1d   : initial mask 
     
    1919 
    2020   !! * Share Module variables 
    21    LOGICAL, PUBLIC, PARAMETER ::  lk_cfg_1d = .TRUE.       !: 1D flag 
     21   LOGICAL, PUBLIC, PARAMETER ::  lk_c1d = .TRUE.       !: 1D flag 
    2222 
    2323   !! * Routine accessibility 
     
    6060   !!   Default key                                     NO 1D Config 
    6161   !!---------------------------------------------------------------------- 
    62    LOGICAL , PUBLIC, PARAMETER ::   lk_cfg_1d = .FALSE.    !: internal damping flag 
     62   LOGICAL , PUBLIC, PARAMETER ::   lk_c1d = .FALSE.    !: internal damping flag 
    6363CONTAINS 
    6464   SUBROUTINE init_1d       ! Empty routine 
  • trunk/NEMO/C1D_SRC/diawri_c1d.F90

    r891 r899  
    44   !! Ocean diagnostics :  write ocean output files 
    55   !!===================================================================== 
    6 #if defined key_cfg_1d 
    7    !!---------------------------------------------------------------------- 
    8    !!   'key_cfg_1d'               1D Configuration 
     6#if defined key_c1d 
     7   !!---------------------------------------------------------------------- 
     8   !!   'key_c1d'               1D Configuration 
    99   !!----------------------------------------------------------------------   
    1010   !!---------------------------------------------------------------------- 
  • trunk/NEMO/C1D_SRC/dyncor_c1d.F90

    r891 r899  
    44   !! Ocean state   :  1D initialization 
    55   !!===================================================================== 
    6 #if defined key_cfg_1d 
     6#if defined key_c1d 
    77   !!---------------------------------------------------------------------- 
    8    !!   'key_cfg_1d'               1D Configuration 
     8   !!   'key_c1d'               1D Configuration 
    99   !!---------------------------------------------------------------------- 
    1010   !!---------------------------------------------------------------------- 
  • trunk/NEMO/C1D_SRC/dynnxt_c1d.F90

    r891 r899  
    44   !! Ocean dynamics: time stepping in 1D configuration 
    55   !!====================================================================== 
    6 #if defined key_cfg_1d 
     6#if defined key_c1d 
    77   !!---------------------------------------------------------------------- 
    8    !!   'key_cfg_1d'               1D Configuration 
     8   !!   'key_c1d'               1D Configuration 
    99   !!----------------------------------------------------------------------   
    1010   !!---------------------------------------------------------------------- 
  • trunk/NEMO/OFF_SRC/par_ORCA_R2.h90

    r719 r899  
    4545      jpnisl  = 400             !: maximum number of points per island 
    4646 
    47 #elif defined key_cfg_1d 
     47#elif defined key_c1d 
    4848      ! global domain size     !!! *  global domain  * 
    4949      jpiglo  = 3     ,      &  !: 1st dimension of global domain --> i 
  • trunk/NEMO/OPA_SRC/DOM/domzgr.F90

    r719 r899  
    569569      ! ================ 
    570570 
    571       IF( .NOT. lk_cfg_1d )   THEN 
     571      IF( .NOT. lk_c1d )   THEN 
    572572 
    573573         ! Suppress isolated ocean grid points 
  • trunk/NEMO/OPA_SRC/ZDF/zdfkpp.F90

    r896 r899  
    130130      evmean   
    131131  
    132 #if defined key_cfg_1d 
     132#if defined key_c1d 
    133133   REAL(wp), PUBLIC, DIMENSION(jpi,jpj,jpk) ::   & 
    134134      rig                   ,  &  ! gradient Richardson number 
     
    352352                  zsh2   = 0.5 * 0.5 * ( zdku2 + zdkv2 ) * ze3sqr 
    353353                  zri    = MAX( rn2(ji,jj,jk), 0. ) / ( zsh2 + epsln )  
    354 #if defined key_cfg_1d 
     354#if defined key_c1d 
    355355                  ! save the gradient richardson number 
    356356                  rig(ji,jj,jk) = zri * tmask(ji,jj,jk) 
     
    515515            zucube     = zustar(ji,jj) * zustar(ji,jj) * zustar(ji,jj)  
    516516            zmoa(ji)   = zucube / ( vonk * ( zbuofdep + epsln ) )    
    517 #if defined key_cfg_1d 
     517#if defined key_c1d 
    518518            ! store the surface buoyancy forcing 
    519519            zstabl        = 0.5 + SIGN( 0.5, zbuofdep ) 
     
    744744               ! Save the Richardson number  
    745745               zria  (ji)   = zrib   
    746 #if defined key_cfg_1d 
     746#if defined key_c1d 
    747747               ! store buoyancy length scale 
    748748               buof(ji,jj,jk) = zbuofdep * tmask(ji,jj,jk)  
  • trunk/NEMO/OPA_SRC/ZDF/zdftke.F90

    r888 r899  
    6868      &                  ri_c  = 2._wp / 9._wp      !: critic Richardson number 
    6969 
    70 # if defined key_cfg_1d 
     70# if defined key_c1d 
    7171   !                                                                   ! 1D cfg only 
    7272   REAL(wp), PUBLIC, DIMENSION(jpi,jpj,jpk) ::   e_dis, e_mix,      &  ! dissipation and mixing turbulent lengh scales 
     
    270270      END SELECT 
    271271 
    272 # if defined key_cfg_1d 
     272# if defined key_c1d 
    273273      ! save mixing and dissipation turbulent length scales 
    274274      e_dis(:,:,:) = zmxld(:,:,:) 
     
    368368                  ! local Richardson number 
    369369                  zri  = MAX( rn2(ji,jj,jk), 0. ) / ( zsh2 + 1.e-20 ) 
    370 # if defined key_cfg_1d 
     370# if defined key_c1d 
    371371                  ! save masked local Richardson number in zmxlm array 
    372372                  e_ric(ji,jj,jk) = zri * tmask(ji,jj,jk) 
     
    400400      END SELECT 
    401401 
    402 # if defined key_cfg_1d 
     402# if defined key_c1d 
    403403      !  save masked Prandlt number 
    404404      e_pdl(:,:,2:jpkm1) = zmxld(:,:,2:jpkm1) 
  • trunk/NEMO/OPA_SRC/istate.F90

    r888 r899  
    127127         CALL eos( tb, sb, rhd, rhop )        ! before potential and in situ densities 
    128128          
    129          IF( ln_zps .AND. .NOT. lk_cfg_1d )   & 
     129         IF( ln_zps .AND. .NOT. lk_c1d )   & 
    130130            &             CALL zps_hde( nit000, tb, sb, rhd,  &  ! Partial steps: before Horizontal DErivative 
    131131            &                                  gtu, gsu, gru, &  ! of t, s, rd at the bottom ocean level 
  • trunk/NEMO/OPA_SRC/opa.F90

    r888 r899  
    124124      IF( lk_mpp )   CALL mpp_max(nstop) 
    125125 
    126       IF( lk_cfg_1d ) THEN  
     126      IF( lk_c1d ) THEN  
    127127         istp = nit000 
    128128         DO WHILE ( istp <= nitend .AND. nstop == 0 ) 
     
    269269      IF( ln_ctl )      CALL prt_ctl_init   ! Print control 
    270270 
    271       IF( lk_cfg_1d )   CALL fcorio_1d      ! redefine Coriolis at T-point 
     271      IF( lk_c1d )      CALL fcorio_1d      ! redefine Coriolis at T-point 
    272272 
    273273      IF( lk_obc    )   CALL obc_init       ! Open boundaries  
     
    310310      IF(lwp) WRITE(numout,cform_aaa)       ! Flag AAAAAAA 
    311311 
    312       IF( lk_cfg_1d  )  THEN  
     312      IF( lk_c1d  )  THEN  
    313313         CALL init_1d 
    314314      ENDIF 
  • trunk/NEMO/OPA_SRC/par_ORCA_R2.h90

    r719 r899  
    6363      jpnisl  = 400             !: maximum number of points per island 
    6464 
    65 #elif defined key_cfg_1d 
     65#elif defined key_c1d 
    6666      ! global domain size     !!! *  global domain  * 
    6767   INTEGER    & 
  • trunk/NEMO/OPA_SRC/par_oce.F90

    r789 r899  
    2828   INTEGER, PUBLIC, PARAMETER ::    &  !:  
    2929      jpni   = 1,                   &  !: number of processors following i  
    30       jpnj   = 1,                   &  !: number of processors following j 
    31       jpnij  = 1                       !: nb of local domain = nb of processors  
     30      jpnj   = 2,                   &  !: number of processors following j 
     31      jpnij  = 2                       !: nb of local domain = nb of processors  
    3232      !                                !  ( <= jpni x jpnj ) 
    3333#else 
  • trunk/NEMO/OPA_SRC/restart.F90

    r888 r899  
    290290         CALL eos( tb, sb, rhd, rhop )        ! before potential and in situ densities 
    291291      ENDIF 
    292       IF( ln_zps .AND. .NOT. lk_cfg_1d ) THEN 
     292      IF( ln_zps .AND. .NOT. lk_c1d ) THEN 
    293293         IF( iom_varid( numror, 'gtu', ldstop = .FALSE. ) > 0 ) THEN 
    294294            CALL iom_get( numror, jpdom_autoglo, 'gtu' , gtu ) 
  • trunk/NEMO/TOP_SRC/SMS/p4zsed.F

    r728 r899  
    296296        DO jj=1,jpj 
    297297          DO ji=1,jpi 
    298 #if ! defined key_cfg_1d && ( defined key_orca_r4 || defined key_orca_r2 || defined key_orca_r05 || defined key_orca_r025 ) 
     298#if ! defined key_c1d && ( defined key_orca_r4 || defined key_orca_r2 || defined key_orca_r05 || defined key_orca_r025 ) 
    299299        zfact=nitrpot(ji,jj,jk)*denitot/nitrpottot 
    300300#else 
  • trunk/NEMO/TOP_SRC/TRP/trcbbl.F90

    r719 r899  
    55   !!                                  layer scheme 
    66   !!============================================================================== 
    7 #if  defined key_passivetrc && ( defined key_trcbbl_dif   ||   defined key_trcbbl_adv ) && ! defined key_cfg_1d 
     7#if  defined key_passivetrc && ( defined key_trcbbl_dif   ||   defined key_trcbbl_adv ) && ! defined key_c1d 
    88   !!---------------------------------------------------------------------- 
    99   !!   'key_trcbbl_dif'   or            diffusive bottom boundary layer 
  • trunk/NEMO/TOP_SRC/trc.F90

    r719 r899  
    194194  !!  1D configuration 
    195195  !! -------------------------------------------------- 
    196 #if defined key_cfg_1d 
     196#if defined key_cf1d 
    197197      LOGICAL, PARAMETER ::   lk_trccfg_1d   = .TRUE.   !: 1D pass. tracer configuration flag 
    198198#else    
  • trunk/NEMO/TOP_SRC/trcrst.F90

    r794 r899  
    110110 
    111111#if defined key_trc_pisces  
    112 #   if ! defined key_cfg_1d && ( defined key_orca_r4 || defined key_orca_r2 || defined key_orca_r05 || defined key_orca_r025 ) 
     112#   if ! defined key_c1d && ( defined key_orca_r4 || defined key_orca_r2 || defined key_orca_r05 || defined key_orca_r025 ) 
    113113      REAL(wp) ::  ztrasum 
    114114#   endif 
     
    218218#if defined key_trc_pisces  
    219219 
    220 #if ! defined key_cfg_1d && ( defined key_orca_r4 || defined key_orca_r2 || defined key_orca_r05 || defined key_orca_r025 )  
     220#if ! defined key_c1d && ( defined key_orca_r4 || defined key_orca_r2 || defined key_orca_r05 || defined key_orca_r025 )  
    221221 
    222222      ztrasum = 0. 
Note: See TracChangeset for help on using the changeset viewer.