Changeset 4029


Ignore:
Timestamp:
2013-09-18T10:01:34+02:00 (8 years ago)
Author:
cetlod
Message:

Branch 2013/dev_r3940_CNRS4_IOCRS : minor improvments

Location:
branches/2013/dev_r3940_CNRS4_IOCRS/NEMOGCM
Files:
1 added
23 edited

Legend:

Unmodified
Added
Removed
  • branches/2013/dev_r3940_CNRS4_IOCRS/NEMOGCM/CONFIG/AMM12/EXP00/namelist

    r3795 r4029  
    106106   rn_rdth     =  300.           !  depth variation of tracer time step  (used if nn_acc=1) 
    107107/ 
     108!----------------------------------------------------------------------- 
     109&namcrs        !   Grid coarsening for dynamics output and/or  
     110               !   passive tracer coarsened online simulations      
     111!----------------------------------------------------------------------- 
     112 
    108113!----------------------------------------------------------------------- 
    109114&namtsd    !   data : Temperature  & Salinity 
  • branches/2013/dev_r3940_CNRS4_IOCRS/NEMOGCM/CONFIG/GYRE/EXP00/namelist

    r3795 r4029  
    106106   rn_rdth     =  800.           !  depth variation of tracer time step (used if nn_acc=1) 
    107107/ 
     108!----------------------------------------------------------------------- 
     109&namcrs        !   Grid coarsening for dynamics output and/or  
     110               !   passive tracer coarsened online simulations      
     111!----------------------------------------------------------------------- 
    108112!----------------------------------------------------------------------- 
    109113&namtsd    !   data : Temperature  & Salinity 
  • branches/2013/dev_r3940_CNRS4_IOCRS/NEMOGCM/CONFIG/GYRE_BFM/EXP00/namelist

    r3815 r4029  
    106106   rn_rdth     =  800.           !  depth variation of tracer time step (used if nn_acc=1) 
    107107/ 
     108!----------------------------------------------------------------------- 
     109&namcrs        !   Grid coarsening for dynamics output and/or 
     110               !   passive tracer coarsened online simulations 
     111!----------------------------------------------------------------------- 
    108112!----------------------------------------------------------------------- 
    109113&namtsd    !   data : Temperature  & Salinity 
  • branches/2013/dev_r3940_CNRS4_IOCRS/NEMOGCM/CONFIG/ORCA2_LIM/EXP00/namelist

    r4016 r4029  
    105105   rn_rdtmax   = 28800.          !  maximum time step on tracers (used if nn_acc=1) 
    106106   rn_rdth     =  800.           !  depth variation of tracer time step  (used if nn_acc=1) 
    107    ln_crs      = .true.      !  Logical switch for coarsening module  
     107   ln_crs      = .false.      !  Logical switch for coarsening module  
    108108/ 
    109109!----------------------------------------------------------------------- 
  • branches/2013/dev_r3940_CNRS4_IOCRS/NEMOGCM/CONFIG/ORCA2_LIM_CFC_C14b/EXP00/namelist

    r3877 r4029  
    9393   rn_rdth     =  800.           !  depth variation of tracer time step  (used if nn_acc=1) 
    9494/ 
     95!----------------------------------------------------------------------- 
     96&namcrs        !   Grid coarsening for dynamics output and/or  
     97               !   passive tracer coarsened online simulations      
     98!----------------------------------------------------------------------- 
    9599!----------------------------------------------------------------------- 
    96100&namtsd    !   data : Temperature  & Salinity                            
  • branches/2013/dev_r3940_CNRS4_IOCRS/NEMOGCM/CONFIG/ORCA2_LIM_PISCES/EXP00/namelist_pisces

    r3904 r4029  
    261261&nampismass     !  Mass conservation 
    262262!,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, 
    263    ln_check_mass =  .true.    !  Check mass conservation 
    264 / 
     263   ln_check_mass =  .false.    !  Check mass conservation 
     264/ 
  • branches/2013/dev_r3940_CNRS4_IOCRS/NEMOGCM/CONFIG/ORCA2_OFF_PISCES/EXP00/namelist_pisces

    r3904 r4029  
    261261&nampismass     !  Mass conservation 
    262262!,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, 
    263    ln_check_mass =  .true.    !  Check mass conservation 
    264 / 
     263   ln_check_mass =  .false.    !  Check mass conservation 
     264/ 
  • branches/2013/dev_r3940_CNRS4_IOCRS/NEMOGCM/CONFIG/ORCA2_SAS_LIM/EXP00/namelist

    r3795 r4029  
    9393   rn_rdth     =  800.           !  depth variation of tracer time step  (used if nn_acc=1) 
    9494/ 
     95!----------------------------------------------------------------------- 
     96&namcrs        !   Grid coarsening for dynamics output and/or 
     97               !   passive tracer coarsened online simulations 
     98!----------------------------------------------------------------------- 
    9599!----------------------------------------------------------------------- 
    96100&namtsd    !   data : Temperature  & Salinity                            
  • branches/2013/dev_r3940_CNRS4_IOCRS/NEMOGCM/NEMO/OFF_SRC/nemogcm.F90

    r3827 r4029  
    8989      istp = nit000 
    9090      !  
    91       CALL iom_init            ! iom_put initialization (must be done after nemo_init for AGRIF+XIOS+OASIS) 
     91      CALL iom_init( "nemo" )            ! iom_put initialization (must be done after nemo_init for AGRIF+XIOS+OASIS) 
    9292      !  
    9393      DO WHILE ( istp <= nitend .AND. nstop == 0 )    ! time stepping 
    9494         ! 
    9595         IF( istp /= nit000 )   CALL day      ( istp )         ! Calendar (day was already called at nit000 in day_init) 
    96                                 CALL iom_setkt( istp - nit000 + 1 )         ! say to iom that we are at time step kstp 
     96                                CALL iom_setkt( istp - nit000 + 1, "nemo" )         ! say to iom that we are at time step kstp 
    9797                                CALL dta_dyn  ( istp )         ! Interpolation of the dynamical fields 
    9898                                CALL trc_stp  ( istp )         ! time-stepping 
     
    394394      ierr = ierr + zdf_oce_alloc   ()          ! ocean vertical physics 
    395395      ! 
    396       ierr = ierr + lib_mpp_alloc   (numout)    ! mpp exchanges 
    397396      ierr = ierr + trc_oce_alloc   ()          ! shared TRC / TRA arrays 
    398397      ! 
  • branches/2013/dev_r3940_CNRS4_IOCRS/NEMOGCM/NEMO/OPA_SRC/CRS/crsfld.F90

    r4015 r4029  
    9090         vn_crs   (:,:,:  ) = 0._wp    ! v-velocity 
    9191         wn_crs   (:,:,:  ) = 0._wp    ! w 
    92          avs_crs  (:,:,:  ) = 0._wp    ! avt 
     92         avt_crs  (:,:,:  ) = 0._wp    ! avt 
    9393         hdivn_crs(:,:,:  ) = 0._wp    ! hdiv 
    9494         rke_crs  (:,:,:  ) = 0._wp    ! rke 
     
    202202      !  free memory 
    203203 
    204       !  avt, avs 
     204      !  avt 
    205205      SELECT CASE ( nn_crs_kz ) 
    206206         CASE ( 0 ) 
    207             CALL crs_dom_ope( fsavs(:,:,:), 'VOL', 'W', tmask, avs_crs, p_e12=e1e2t, p_e3=zfse3w ) 
     207            CALL crs_dom_ope( avt, 'VOL', 'W', tmask, avt_crs, p_e12=e1e2t, p_e3=zfse3w ) 
    208208         CASE ( 1 ) 
    209             CALL crs_dom_ope( fsavs(:,:,:), 'MAX', 'W', tmask, avs_crs, p_e12=e1e2t, p_e3=zfse3w ) 
     209            CALL crs_dom_ope( avt, 'MAX', 'W', tmask, avt_crs, p_e12=e1e2t, p_e3=zfse3w ) 
    210210         CASE ( 2 ) 
    211             CALL crs_dom_ope( fsavs(:,:,:), 'MIN', 'W', tmask, avs_crs, p_e12=e1e2t, p_e3=zfse3w ) 
     211            CALL crs_dom_ope( avt, 'MIN', 'W', tmask, avt_crs, p_e12=e1e2t, p_e3=zfse3w ) 
    212212      END SELECT 
    213213      ! 
    214       CALL iom_put( "avs", avs_crs )   !  Kz 
     214      CALL iom_put( "avt", avt_crs )   !  Kz 
    215215       
    216216      !  sbc fields   
  • branches/2013/dev_r3940_CNRS4_IOCRS/NEMOGCM/NEMO/OPA_SRC/SBC/sbcmod.F90

    r3905 r4029  
    221221      ENDIF 
    222222      ! 
     223                          CALL sbc_ssm_init 
     224      ! 
    223225      IF( ln_ssr      )   CALL sbc_ssr_init               ! Sea-Surface Restoring initialisation 
    224226      ! 
  • branches/2013/dev_r3940_CNRS4_IOCRS/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfddm_substitute.h90

    r2715 r4029  
    77#if defined key_zdfddm 
    88!   'key_zdfddm' :                      avs: 3D array defined in zdfddm module 
    9 #   define   fsavs(i,j,k)   avs(i,j,k) 
     9#   define   fsavs(i,j,k)       avs(i,j,k) 
    1010#else 
    1111!   Defautl option :                     avs = avt 
    12 #   define   fsavs(i,j,k)   avt(i,j,k) 
     12#   define   fsavs(i,j,k)       avt(i,j,k) 
    1313#endif 
    1414   !!---------------------------------------------------------------------- 
  • branches/2013/dev_r3940_CNRS4_IOCRS/NEMOGCM/NEMO/OPA_SRC/par_AMM_12km.h90

    r4015 r4029  
    44   !!                  (AMM_12km configuration VN3.3) 
    55   !!--------------------------------------------------------------------- 
    6    CHARACTER (len=16) :: cp_cfg = "amm"  !: name of the configuration 
    7    INTEGER            :: jp_cfg = 011    !: resolution of the configuration (degrees) 
    8    INTEGER, PARAMETER ::     & 
     6   CHARACTER (len=16)        & 
     7#if !defined key_agrif 
     8      , PARAMETER  & 
     9#endif 
     10      ::    & 
     11      cp_cfg = "amm"         !: name of the configuration 
     12   INTEGER                   & 
     13#if !defined key_agrif 
     14      , PARAMETER  & 
     15#endif 
     16      ::    & 
     17      jp_cfg = 011  ,        &  !: resolution of the configuration (degrees) 
    918      ! Original data size 
    1019      jpidta  = 198,        &  !: first horizontal dimension > or = to jpi 
    1120      jpjdta  = 224,        &  !: second                     > or = to jpj 
    1221      jpkdta  = 33             !: number of levels           > or = to jpk 
     22 
    1323   INTEGER            ::     & 
    1424      ! total domain matrix size 
  • branches/2013/dev_r3940_CNRS4_IOCRS/NEMOGCM/NEMO/OPA_SRC/par_EEL_R2.h90

    r4015 r4029  
    88   !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 
    99   !!---------------------------------------------------------------------- 
    10    CHARACTER (len=16) :: cp_cfg = "eel"  !: name of the configuration 
    11    INTEGER            :: jp_cfg = 2    !: resolution of the configuration (km) 
    12    INTEGER, PARAMETER ::     & 
     10   CHARACTER (len=16)      & 
     11#if !defined key_agrif 
     12      , PARAMETER  & 
     13#endif 
     14      ::    & 
     15      cp_cfg = "eel"            !: name of the configuration 
     16   INTEGER     & 
     17#if !defined key_agrif 
     18      , PARAMETER  & 
     19#endif 
     20      :: & 
     21      jp_cfg = 2   ,         &  !: resolution of the configuration (km) 
     22 
    1323      ! data size              !!! * size of all the input files * 
    1424      jpidta  = 83,          &  !: 1st horizontal dimension ( >= jpi ) 
    1525      jpjdta  = 242,         &  !: 2nd    "            "    ( >= jpj ) 
    16       jpkdta  = 30,          &  !: number of levels         ( >= jpk ) 
     26      jpkdta  = 30           &  !: number of levels         ( >= jpk ) 
    1727 
    1828   INTEGER            ::     & 
  • branches/2013/dev_r3940_CNRS4_IOCRS/NEMOGCM/NEMO/OPA_SRC/par_EEL_R5.h90

    r4015 r4029  
    88   !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 
    99   !!---------------------------------------------------------------------- 
    10    CHARACTER (len=16) :: cp_cfg = "eel"  !: name of the configuration 
    11    INTEGER            :: jp_cfg = 5    !: resolution of the configuration (km) 
    12    INTEGER, PARAMETER ::     & 
     10   CHARACTER (len=16)      & 
     11#if !defined key_agrif 
     12      , PARAMETER  & 
     13#endif 
     14      ::    & 
     15      cp_cfg = "eel"            !: name of the configuration 
     16   INTEGER     & 
     17#if !defined key_agrif 
     18      , PARAMETER  & 
     19#endif 
     20      :: & 
     21      jp_cfg = 5      ,      &  !: resolution of the configuration (km) 
     22 
    1323      ! data size              !!! * size of all the input files 
    1424      jpidta  =  66   ,      &  !: first horizontal dimension > or = to jpi 
    1525      jpjdta  =  66   ,      &  !: second                     > or = to jpj 
    16       jpkdta  =  31             !: number of levels           > or = to jpk 
     26      jpkdta  =  31          &  !: number of levels           > or = to jpk 
    1727 
    1828   INTEGER ::     & 
  • branches/2013/dev_r3940_CNRS4_IOCRS/NEMOGCM/NEMO/OPA_SRC/par_EEL_R6.h90

    r4015 r4029  
    88   !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 
    99   !!---------------------------------------------------------------------- 
    10    CHARACTER (len=16) :: cp_cfg = "eel"  !: name of the configuration 
    11    INTEGER            :: jp_cfg = 6      !: resolution of the configuration (km) 
    12    INTEGER, PARAMETER ::     & 
     10   CHARACTER (len=16)      & 
     11#if !defined key_agrif 
     12      , PARAMETER  & 
     13#endif 
     14      ::    & 
     15      cp_cfg = "eel"            !: name of the configuration 
     16   INTEGER     & 
     17#if !defined key_agrif 
     18      , PARAMETER  & 
     19#endif 
     20      ::     & 
     21      jp_cfg = 6      ,      &  !: resolution of the configuration (km) 
     22 
    1323      ! data size              !!! * size of all the input files * 
    1424      jpidta  = 29,          &  !: 1st lateral dimension ( >= jpi ) 
    1525      jpjdta  = 83,          &  !: 2nd    "         "    ( >= jpj ) 
    16       jpkdta  = 30,          &  !: number of levels      ( >= jpk ) 
     26      jpkdta  = 30           &  !: number of levels      ( >= jpk ) 
    1727 
    1828   INTEGER            ::     & 
  • branches/2013/dev_r3940_CNRS4_IOCRS/NEMOGCM/NEMO/OPA_SRC/par_GYRE.h90

    r4015 r4029  
    88   !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 
    99   !!---------------------------------------------------------------------- 
    10    CHARACTER (len=16) :: cp_cfg = "gyre"  !: name of the configuration 
    11    INTEGER            :: jp_cfg = 1       !: resolution of the configuration  
    12    INTEGER, PARAMETER ::     & 
     10   CHARACTER (len=16)      & 
     11#if !defined key_agrif 
     12      , PARAMETER  & 
     13#endif 
     14      ::    & 
     15      cp_cfg = "gyre"           !: name of the configuration 
     16   INTEGER     & 
     17#if !defined key_agrif 
     18      , PARAMETER  & 
     19#endif 
     20      :: & 
     21      jp_cfg =  1   ,        &  !: 
     22 
    1323      ! data size              !!! * size of all the input files * 
    1424      jpidta  = 30*jp_cfg+2, &  !: 1st horizontal dimension ( >= jpi ) 
  • branches/2013/dev_r3940_CNRS4_IOCRS/NEMOGCM/NEMO/OPA_SRC/par_ORCA_R025.h90

    r4015 r4029  
    99   !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 
    1010   !!---------------------------------------------------------------------- 
    11    CHARACTER (len=16) :: cp_cfg = "orca"  !: name of the configuration 
    12    INTEGER            :: jp_cfg = 025       !: resolution of the configuration (degrees) 
    13    INTEGER, PARAMETER ::     & 
     11   CHARACTER (len=16)      & 
     12#if !defined key_agrif 
     13      , PARAMETER  & 
     14#endif 
     15      ::    & 
     16      cp_cfg = "orca"           !: name of the configuration 
     17   INTEGER     & 
     18#if !defined key_agrif 
     19      , PARAMETER  & 
     20#endif 
     21      :: & 
     22      jp_cfg = 025  ,        &  !: resolution of the configuration (degrees) 
    1423      ! Original data size 
    1524      jpidta  = 1442,        &  !: first horizontal dimension > or = to jpi 
     
    2029      jpkdta  = 46              !: number of levels           > or = to jpk 
    2130#endif 
     31 
    2232   INTEGER  ::     & 
    2333      ! total domain matrix size 
  • branches/2013/dev_r3940_CNRS4_IOCRS/NEMOGCM/NEMO/OPA_SRC/par_ORCA_R05.h90

    r4015 r4029  
    99   !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 
    1010   !!---------------------------------------------------------------------- 
    11    CHARACTER (len=16) :: cp_cfg = "orca"  !: name of the configuration 
    12    INTEGER            :: jp_cfg = 05       !: resolution of the configuration (degrees) 
    13    INTEGER, PARAMETER ::     & 
    14       ! data size              !!! * size of all input files * 
     11   CHARACTER (len=16)      & 
     12#if !defined key_agrif 
     13      , PARAMETER  & 
     14#endif 
     15      ::    & 
     16      cp_cfg = "orca"           !: name of the configuration 
     17   INTEGER     & 
     18#if !defined key_agrif 
     19      , PARAMETER  & 
     20#endif 
     21      :: & 
     22      jp_cfg = 05  ,         &  !: resolution of the configuration (degrees) 
     23 
     24      ! data size              !!! * size of all the input files * 
    1525      jpidta  = 722,         &  !: 1st lateral dimension > or = to jpiglo 
    1626      jpjdta  = 511,         &  !: 2nd   "         "     > or = to jpjglo 
  • branches/2013/dev_r3940_CNRS4_IOCRS/NEMOGCM/NEMO/OPA_SRC/par_ORCA_R2.h90

    r4015 r4029  
    99   !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 
    1010   !!---------------------------------------------------------------------- 
    11    CHARACTER (len=16) :: cp_cfg = "orca"  !: name of the configuration 
    12    INTEGER            :: jp_cfg = 2       !: resolution of the configuration (degrees) 
    13    INTEGER, PARAMETER ::     & 
     11  CHARACTER (len=16)      & 
     12#if !defined key_agrif 
     13      , PARAMETER  & 
     14#endif 
     15      ::    & 
     16      cp_cfg = "orca"           !: name of the configuration 
     17   INTEGER     & 
     18#if !defined key_agrif 
     19      , PARAMETER  & 
     20#endif 
     21      :: & 
     22      jp_cfg = 2,            &  !: resolution of the configuration (degrees) 
     23 
    1424      ! data size              !!! * size of all input files * 
    1525      jpidta  = 182,         &  !: 1st lateral dimension ( >= jpiglo ) 
    1626      jpjdta  = 149,         &  !: 2nd    "       "      ( >= jpjglo ) 
    17       jpkdta  = 31              !: number of levels      ( >= jpk    )  
     27      jpkdta  = 31              !: number of levels      ( >= jpk    ) 
    1828 
    1929#if defined key_antarctic 
  • branches/2013/dev_r3940_CNRS4_IOCRS/NEMOGCM/NEMO/OPA_SRC/par_ORCA_R4.h90

    r4015 r4029  
    99   !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 
    1010   !!---------------------------------------------------------------------- 
    11    CHARACTER (len=16) :: cp_cfg = "orca"  !: name of the configuration 
    12    INTEGER            :: jp_cfg = 4       !: resolution of the configuration (degrees) 
    13    INTEGER, PARAMETER ::     & 
    14       ! data size              !!! * size of all input files * 
     11  !!--------------------------------------------------------------------- 
     12   !!                     ***  par_ORCA_R4.h90  *** 
     13   !!   Ocean Domain : 4 degrees resolution global ocean 
     14   !!                  (0RCA_R4 configuration) 
     15   !!--------------------------------------------------------------------- 
     16   !!---------------------------------------------------------------------- 
     17   !! NEMO/OPA 3.3 , NEMO Consortium (2010) 
     18   !! $Id$ 
     19   !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 
     20   !!---------------------------------------------------------------------- 
     21   CHARACTER (len=16)      & 
     22#if !defined key_agrif 
     23      , PARAMETER  & 
     24#endif 
     25       ::    & 
     26     cp_cfg = "orca"           !: name of the configuration 
     27   INTEGER     & 
     28#if !defined key_agrif 
     29      , PARAMETER  & 
     30#endif 
     31      :: & 
     32      jp_cfg = 4      ,      &  !: resolution of the configuration (degrees) 
     33      ! Original data size 
    1534      jpidta  =  92   ,      &  !: first horizontal dimension > or = to jpi 
    1635      jpjdta  =  76   ,      &  !: second                     > or = to jpj 
    1736      jpkdta  =  31             !: number of levels           > or = to jpk 
    18     
     37 
    1938   INTEGER           ::     & 
    2039      ! global domain matrix size 
  • branches/2013/dev_r3940_CNRS4_IOCRS/NEMOGCM/SETTE/param.cfg

    r3694 r4029  
    11#- forcing files storing  
    2 FORCING_DIR=~/FORCING 
     2FORCING_DIR=${WORKDIR}/FORCING 
    33#- input files storing  
    44INPUT_DIR=${CONFIG_DIR}/${NEW_CONF}/EXP00 
     
    66#TMPDIR=${CONFIG_DIR}/${NEW_CONF}/EXP00 
    77#- VALIDATION files storing  
    8 NEMO_VALIDATION_DIR=~/NEMO_VALIDATION 
     8NEMO_VALIDATION_DIR=${WORKDIR}/NEMO_VALIDATION 
  • branches/2013/dev_r3940_CNRS4_IOCRS/NEMOGCM/SETTE/sette.sh

    r3708 r4029  
    131131#- 
    132132# Compiler among those in NEMOGCM/ARCH 
    133 COMPILER=PW6_VARGAS 
     133COMPILER=x3750_ADA 
    134134export BATCH_COMMAND_PAR="llsubmit" 
    135135export BATCH_COMMAND_SEQ=$BATCH_COMMAND_PAR 
     
    137137export MPIRUN_FLAG="yes" 
    138138# IF YOU DON'T WANT TO USE XIOS : (this is a list of keys to be delete) 
    139 export KEY_XIOS="key_iomput" 
     139#export KEY_XIOS="key_iomput" 
    140140# IF YOU WANT TO USE XIOS : 
    141 #export KEY_XIOS="" 
     141export KEY_XIOS="" 
    142142 
    143143 
Note: See TracChangeset for help on using the changeset viewer.