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 7485 – NEMO

Changeset 7485


Ignore:
Timestamp:
2016-12-12T09:33:37+01:00 (8 years ago)
Author:
cetlod
Message:

Remove CPP key key_offline and replace it with a logical l_offline

Location:
branches/2016/dev_merge_2016/NEMOGCM
Files:
24 edited

Legend:

Unmodified
Added
Removed

  • branches/2016/dev_merge_2016/NEMOGCM/CONFIG/ORCA2_OFF_PISCES/cpp_ORCA2_OFF_PISCES.fcm

    r7403 r7485  
    1 bld::tool::fppkeys key_trabbl key_top key_offline key_iomput key_mpp_mpi 
     1bld::tool::fppkeys key_trabbl key_top key_iomput key_mpp_mpi 

  • branches/2016/dev_merge_2016/NEMOGCM/CONFIG/ORCA2_OFF_TRC/cpp_ORCA2_OFF_TRC.fcm

    r7445 r7485  
    1 bld::tool::fppkeys key_trabbl key_top key_offline key_iomput key_mpp_mpi 
     1bld::tool::fppkeys key_trabbl key_top key_iomput key_mpp_mpi 

  • branches/2016/dev_merge_2016/NEMOGCM/CONFIG/WAD_TEST_CASES/MY_SRC/domain.F90

    r7467 r7485  
    179179      ELSE                       != time varying : initialize before/now/after variables 
    180180         ! 
    181          IF( .NOT.lk_offline )  CALL dom_vvl_init  
     181         IF( .NOT.l_offline )  CALL dom_vvl_init  
    182182         ! 
    183183      ENDIF 

  • branches/2016/dev_merge_2016/NEMOGCM/NEMO/NST_SRC/agrif_opa_interp.F90

    r6140 r7485  
    99   !!            3.6  !  2014-09  (R. Benshila)  
    1010   !!---------------------------------------------------------------------- 
    11 #if defined key_agrif && ! defined key_offline 
     11#if defined key_agrif 
    1212   !!---------------------------------------------------------------------- 
    1313   !!   'key_agrif'                                              AGRIF zoom 
    14    !!   NOT 'key_offline'                               NO off-line tracers 
    1514   !!---------------------------------------------------------------------- 
    1615   !!   Agrif_tra     : 

  • branches/2016/dev_merge_2016/NEMOGCM/NEMO/NST_SRC/agrif_opa_sponge.F90

    r6140 r7485  
    88   !! History :   
    99   !!---------------------------------------------------------------------- 
    10 #if defined key_agrif  && ! defined key_offline 
     10#if defined key_agrif 
    1111   USE par_oce 
    1212   USE oce 

  • branches/2016/dev_merge_2016/NEMOGCM/NEMO/NST_SRC/agrif_opa_update.F90

    r6140 r7485  
    33  
    44MODULE agrif_opa_update 
    5 #if defined key_agrif  && ! defined key_offline 
     5#if defined key_agrif  
    66   USE par_oce 
    77   USE oce 

  • branches/2016/dev_merge_2016/NEMOGCM/NEMO/NST_SRC/agrif_user.F90

    r7421 r7485  
    8080   CALL agrif_nemo_init 
    8181   CALL Agrif_InitValues_cont_dom 
    82 # if ! defined key_offline 
    8382   CALL Agrif_InitValues_cont 
    84 # endif        
    8583# if defined key_top 
    8684   CALL Agrif_InitValues_cont_top 
    … …  
    154152END SUBROUTINE agrif_declare_var_dom 
    155153 
    156  
    157 # if ! defined key_offline 
    158154 
    159155SUBROUTINE Agrif_InitValues_cont 
    … …  
    464460   ! 
    465461END SUBROUTINE agrif_declare_var 
    466 # endif 
    467462 
    468463#  if defined key_lim2 
    … …  
    699694 
    700695   IF( check_namelist ) THEN 
    701 # if defined key_offline 
    702696      ! Check time steps 
    703697      IF( NINT(Agrif_Rhot()) * NINT(rdt) .NE. Agrif_Parent(rdt) ) THEN 
    … …  
    742736         ENDIF 
    743737      ENDIF 
    744 #  endif          
    745738      ! Check passive tracer cell 
    746739      IF( nn_dttrc .NE. 1 ) THEN 

  • branches/2016/dev_merge_2016/NEMOGCM/NEMO/OFF_SRC/nemogcm.F90

    r7421 r7485  
    1717   USE dom_oce         ! ocean space domain variables 
    1818   USE oce             ! dynamics and tracers variables 
     19   USE trc_oce         ! Shared ocean/passive tracers variables 
    1920   USE c1d             ! 1D configuration 
    2021   USE domain          ! domain initialization from coordinate & bathymetry (dom_init routine) 
    … …  
    199200      jpk    = jpkglo 
    200201      ! 
     202      ! 
     203      l_offline = .true.            !  passive tracers are run offline 
     204      ! 
    201205      !                             !--------------------------------------------! 
    202206      !                             !  set communicator & select the local node  ! 

  • branches/2016/dev_merge_2016/NEMOGCM/NEMO/OPA_SRC/DOM/daymod.F90

    r7421 r7485  
    2626   USE phycst         ! physical constants 
    2727   USE ioipsl  , ONLY :   ymds2ju      ! for calendar 
    28    USE trc_oce , ONLY :   lk_offline   ! offline flag 
     28   USE trc_oce , ONLY :   l_offline   ! offline flag 
    2929   ! 
    3030   USE in_out_manager ! I/O manager 
    … …  
    8181      ndt05   = NINT( 0.5 * rdt  ) 
    8282 
    83       IF( .NOT. lk_offline )   CALL day_rst( nit000, 'READ' ) 
     83      IF( .NOT. l_offline )   CALL day_rst( nit000, 'READ' ) 
    8484 
    8585      ! set the calandar from ndastp (read in restart file and namelist) 
    … …  
    273273      ENDIF 
    274274 
    275       IF( .NOT. lk_offline ) CALL rst_opn( kt )               ! Open the restart file if needed and control lrst_oce 
     275      IF( .NOT. l_offline ) CALL rst_opn( kt )               ! Open the restart file if needed and control lrst_oce 
    276276      IF( lrst_oce         ) CALL day_rst( kt, 'WRITE' )      ! write day restart information 
    277277      ! 

  • branches/2016/dev_merge_2016/NEMOGCM/NEMO/OPA_SRC/DOM/depth_e3.F90

    r7421 r7485  
    126126      INTEGER  ::   jk           ! dummy loop indices 
    127127      !!---------------------------------------------------------------------- 
    128       ! 
    129       pdepw_1d(1) = 0.0_wp 
     128      ! 
     129      pdepw_1d(1) = 0.0_wp 
    130130      pdept_1d(1) = 0.5_wp * pe3w_1d(1) 
    131       DO jk = 2, jpk 
     131      DO jk = 2, jpk 
    132132         pdepw_1d(jk) = pdepw_1d(jk-1) + pe3t_1d(jk-1)  
    133133         pdept_1d(jk) = pdept_1d(jk-1) + pe3w_1d(jk  )  
    … …  
    152152      INTEGER  ::   jk           ! dummy loop indices 
    153153      !!----------------------------------------------------------------------       
    154       ! 
    155       pdepw_3d(:,:,1) = 0.0_wp 
     154      ! 
     155      pdepw_3d(:,:,1) = 0.0_wp 
    156156      pdept_3d(:,:,1) = 0.5_wp * pe3w_3d(:,:,1) 
    157       DO jk = 2, jpk 
     157      DO jk = 2, jpk 
    158158         pdepw_3d(:,:,jk) = pdepw_3d(:,:,jk-1) + pe3t_3d(:,:,jk-1)  
    159159         pdept_3d(:,:,jk) = pdept_3d(:,:,jk-1) + pe3w_3d(:,:,jk  )  

  • branches/2016/dev_merge_2016/NEMOGCM/NEMO/OPA_SRC/DOM/domain.F90

    r7421 r7485  
    4040   USE dyncor_c1d     ! 1D configuration: Coriolis term    (cor_c1d routine) 
    4141   ! 
     42   USE trc_oce , ONLY :   l_offline    ! passive tracers offline flag 
     43   ! 
    4244   USE in_out_manager ! I/O manager 
    4345   USE iom            ! I/O library 
    … …  
    178180      ELSE                       != time varying : initialize before/now/after variables 
    179181         ! 
    180          IF( .NOT.lk_offline )  CALL dom_vvl_init  
     182         IF( .NOT.l_offline )  CALL dom_vvl_init  
    181183         ! 
    182184      ENDIF 

  • branches/2016/dev_merge_2016/NEMOGCM/NEMO/OPA_SRC/LDF/ldftra.F90

    r7421 r7485  
    2626   USE diaptr 
    2727   ! 
    28    USE trc_oce, ONLY: lk_offline ! offline flag 
    2928   USE in_out_manager  ! I/O manager 
    3029   USE iom             ! I/O module for ehanced bottom friction file 
    … …  
    352351      END SELECT 
    353352      ! 
    354       IF( .NOT.lk_offline ) THEN 
    355          CALL iom_put( "ahtu_2d", ahtu(:,:,1) )   ! surface u-eddy diffusivity coeff. 
    356          CALL iom_put( "ahtv_2d", ahtv(:,:,1) )   ! surface v-eddy diffusivity coeff. 
    357          CALL iom_put( "ahtu_3d", ahtu(:,:,:) )   ! 3D      u-eddy diffusivity coeff. 
    358          CALL iom_put( "ahtv_3d", ahtv(:,:,:) )   ! 3D      v-eddy diffusivity coeff. 
    359          ! 
     353      CALL iom_put( "ahtu_2d", ahtu(:,:,1) )   ! surface u-eddy diffusivity coeff. 
     354      CALL iom_put( "ahtv_2d", ahtv(:,:,1) )   ! surface v-eddy diffusivity coeff. 
     355      CALL iom_put( "ahtu_3d", ahtu(:,:,:) )   ! 3D      u-eddy diffusivity coeff. 
     356      CALL iom_put( "ahtv_3d", ahtv(:,:,:) )   ! 3D      v-eddy diffusivity coeff. 
     357      ! 
    360358!!gm  : THE IF below is to be checked (comes from Seb) 
    361          IF( ln_ldfeiv ) THEN 
    362            CALL iom_put( "aeiu_2d", aeiu(:,:,1) )   ! surface u-EIV coeff. 
    363            CALL iom_put( "aeiv_2d", aeiv(:,:,1) )   ! surface v-EIV coeff. 
    364            CALL iom_put( "aeiu_3d", aeiu(:,:,:) )   ! 3D      u-EIV coeff. 
    365            CALL iom_put( "aeiv_3d", aeiv(:,:,:) )   ! 3D      v-EIV coeff. 
    366          ENDIF      
     359      IF( ln_ldfeiv ) THEN 
     360        CALL iom_put( "aeiu_2d", aeiu(:,:,1) )   ! surface u-EIV coeff. 
     361        CALL iom_put( "aeiv_2d", aeiv(:,:,1) )   ! surface v-EIV coeff. 
     362        CALL iom_put( "aeiu_3d", aeiu(:,:,:) )   ! 3D      u-EIV coeff. 
     363        CALL iom_put( "aeiv_3d", aeiv(:,:,:) )   ! 3D      v-EIV coeff. 
    367364      ENDIF 
    368365      ! 

  • branches/2016/dev_merge_2016/NEMOGCM/NEMO/OPA_SRC/TRA/traqsr.F90

    r7421 r7485  
    422422         ! 
    423423         IF(lwp) WRITE(numout,*) '   bio-model light penetration' 
    424          IF( .NOT.lk_qsr_bio )   CALL ctl_stop( 'No bio model : ln_qsr_bio = true impossible ' ) 
     424         IF( .NOT.lk_top )   CALL ctl_stop( 'No bio model : ln_qsr_bio = true impossible ' ) 
    425425         ! 
    426426      END SELECT 

  • branches/2016/dev_merge_2016/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfmxl.F90

    r6352 r7485  
    1313   USE oce             ! ocean dynamics and tracers variables 
    1414   USE dom_oce         ! ocean space and time domain variables 
     15   USE trc_oce, ONLY: l_offline         ! ocean space and time domain variables 
    1516   USE zdf_oce         ! ocean vertical physics 
    1617   USE in_out_manager  ! I/O manager 
    … …  
    2122   USE wrk_nemo        ! work arrays 
    2223   USE timing          ! Timing 
    23    USE trc_oce, ONLY : lk_offline ! offline flag 
    2424 
    2525   IMPLICIT NONE 
    … …  
    128128         END DO 
    129129      END DO 
    130       ! no need to output in offline mode 
    131       IF( .NOT.lk_offline ) THEN    
    132          IF ( iom_use("mldr10_1") ) THEN 
    133             IF( ln_isfcav ) THEN 
    134                CALL iom_put( "mldr10_1", hmlp - risfdep)   ! mixed layer thickness 
    135             ELSE 
    136                CALL iom_put( "mldr10_1", hmlp )            ! mixed layer depth 
     130      ! 
     131      IF( .NOT.l_offline ) THEN 
     132         IF( iom_use("mldr10_1") ) THEN 
     133            IF( ln_isfcav ) THEN  ;  CALL iom_put( "mldr10_1", hmlp - risfdep)   ! mixed layer thickness 
     134            ELSE                  ;  CALL iom_put( "mldr10_1", hmlp )            ! mixed layer depth 
    137135            END IF 
    138136         END IF 
    139          IF ( iom_use("mldkz5") ) THEN 
    140             IF( ln_isfcav ) THEN 
    141                CALL iom_put( "mldkz5"  , hmld - risfdep )   ! turbocline thickness 
    142             ELSE 
    143                CALL iom_put( "mldkz5"  , hmld )             ! turbocline depth 
     137         IF( iom_use("mldkz5") ) THEN 
     138            IF( ln_isfcav ) THEN  ;  CALL iom_put( "mldkz5"  , hmld - risfdep )   ! turbocline thickness 
     139            ELSE                  ;  CALL iom_put( "mldkz5"  , hmld )             ! turbocline depth 
    144140            END IF 
    145          END IF 
     141         ENDIF 
    146142      ENDIF 
    147143       

  • branches/2016/dev_merge_2016/NEMOGCM/NEMO/OPA_SRC/trc_oce.F90

    r7421 r7485  
    2424   PUBLIC   trc_oce_alloc      ! function called by nemogcm.F90 
    2525 
    26    LOGICAL , PUBLIC                                      ::   l_co2cpl = .false.   !: atmospheric pco2 recieved from oasis 
     26   LOGICAL , PUBLIC                                      ::   l_co2cpl  = .false.   !: atmospheric pco2 recieved from oasis 
     27   LOGICAL , PUBLIC                                     ::   l_offline = .false.   !: offline passive tracers flag 
    2728   INTEGER , PUBLIC                                      ::   nn_dttrc      !: frequency of step on passive tracers 
    2829   REAL(wp), PUBLIC                                      ::   r_si2         !: largest depth of extinction (blue & 0.01 mg.m-3)  (RGB) 
    … …  
    3536   !!---------------------------------------------------------------------- 
    3637   LOGICAL, PUBLIC, PARAMETER ::   lk_top     = .TRUE.   !: TOP model 
    37    LOGICAL, PUBLIC, PARAMETER ::   lk_qsr_bio = .TRUE.   !: bio-model light absorption flag 
    3838#else 
    3939   !!---------------------------------------------------------------------- 
    … …  
    4141   !!---------------------------------------------------------------------- 
    4242   LOGICAL, PUBLIC, PARAMETER ::   lk_top     = .FALSE.   !: TOP model 
    43    LOGICAL, PUBLIC, PARAMETER ::   lk_qsr_bio = .FALSE.   !: bio-model light absorption flag 
    44 #endif 
    45 #if defined key_offline 
    46    !!---------------------------------------------------------------------- 
    47    !!   'key_offline'                                     OFFLINE mode           
    48    !!---------------------------------------------------------------------- 
    49    LOGICAL, PUBLIC, PARAMETER ::   lk_offline = .TRUE.   !: offline flag 
    50 #else 
    51    !!---------------------------------------------------------------------- 
    52    !!   Default option                                   NO  OFFLINE mode           
    53    !!---------------------------------------------------------------------- 
    54    LOGICAL, PUBLIC, PARAMETER ::   lk_offline = .FALSE.   !: offline flag 
    55 #endif 
    56 #if defined key_degrad 
    57    !!---------------------------------------------------------------------- 
    58    !!   'key_degrad'                                     Degradation mode           
    59    !!---------------------------------------------------------------------- 
    60    LOGICAL, PUBLIC, PARAMETER ::   lk_degrad = .TRUE.   !: degradation flag 
    61 #else 
    62    !!---------------------------------------------------------------------- 
    63    !!   Default option                                   NO  Degradation mode           
    64    !!---------------------------------------------------------------------- 
    65    LOGICAL, PUBLIC, PARAMETER ::   lk_degrad = .FALSE.   !: degradation flag 
    6643#endif 
    6744   !!---------------------------------------------------------------------- 

  • branches/2016/dev_merge_2016/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zsbc.F90

    r7403 r7485  
    291291      ! set the number of level over which river runoffs are applied  
    292292      ! online configuration : computed in sbcrnf 
    293       IF( lk_offline ) THEN 
     293      IF( l_offline ) THEN 
    294294        nk_rnf(:,:) = 1 
    295295        h_rnf (:,:) = gdept_n(:,:,1) 

  • branches/2016/dev_merge_2016/NEMOGCM/NEMO/TOP_SRC/TRP/trcadv.F90

    r7421 r7485  
    8585      CALL wrk_alloc( jpi,jpj,jpk,   zun, zvn, zwn ) 
    8686      !                                               !==  effective transport  ==! 
    87       IF( lk_offline ) THEN 
     87      IF( l_offline ) THEN 
    8888         zun(:,:,:) = un(:,:,:)     ! effective transport already in un/vn/wn 
    8989         zvn(:,:,:) = vn(:,:,:) 

  • branches/2016/dev_merge_2016/NEMOGCM/NEMO/TOP_SRC/TRP/trcbbl.F90

    r5836 r7485  
    5454      IF( nn_timing == 1 )  CALL timing_start('trc_bbl') 
    5555      ! 
    56       IF( .NOT. lk_offline .AND. nn_dttrc == 1 ) THEN 
     56      IF( .NOT. l_offline .AND. nn_dttrc == 1 ) THEN 
    5757         CALL bbl( kt, nittrc000, 'TRC' )      ! Online coupling with dynamics  : Computation of bbl coef and bbl transport 
    5858         l_bbl = .FALSE.                       ! Offline coupling with dynamics : Read bbl coef and bbl transport from input files 

  • branches/2016/dev_merge_2016/NEMOGCM/NEMO/TOP_SRC/oce_trc.F90

    r7403 r7485  
    5151   USE oce , ONLY :   sshb    =>    sshb    !: sea surface height at t-point [m]    
    5252   USE oce , ONLY :   ssha    =>    ssha    !: sea surface height at t-point [m]    
    53 #if defined key_offline 
    5453   USE oce , ONLY :   rab_n   =>    rab_n   !: local thermal/haline expension ratio at T-points 
    55 #endif 
    5654 
    5755   !* surface fluxes * 

  • branches/2016/dev_merge_2016/NEMOGCM/NEMO/TOP_SRC/trcini.F90

    r7403 r7485  
    6565      ! 
    6666      IF(lwp) WRITE(numout,*) 
    67       IF( ln_rsttr .AND. .NOT. lk_offline ) CALL trc_rst_cal( nit000, 'READ' )   ! calendar 
     67      IF( ln_rsttr .AND. .NOT. l_offline ) CALL trc_rst_cal( nit000, 'READ' )   ! calendar 
    6868      IF(lwp) WRITE(numout,*) 
    6969      ! 
    … …  
    9393      ! Define logical parameter ton control dirunal cycle in TOP 
    9494      l_trcdm2dc = ln_dm2dc .OR. ( ln_cpl .AND. ncpl_qsr_freq /= 1 ) 
    95       l_trcdm2dc = l_trcdm2dc  .AND. .NOT. lk_offline 
     95      l_trcdm2dc = l_trcdm2dc  .AND. .NOT. l_offline 
    9696      IF( l_trcdm2dc .AND. lwp )   CALL ctl_warn( 'Coupling with passive tracers and used of diurnal cycle.',   & 
    9797         &                           'Computation of a daily mean shortwave for some biogeochemical models ' ) 

  • branches/2016/dev_merge_2016/NEMOGCM/NEMO/TOP_SRC/trcnam.F90

    r7403 r7485  
    5151      INTEGER  ::   jn                  ! dummy loop indice 
    5252      ! 
    53       IF( .NOT.lk_offline )   CALL trc_nam_run     ! Parameters of the run                                   
     53      IF( .NOT.l_offline )   CALL trc_nam_run     ! Parameters of the run                                   
    5454      !                
    5555      CALL trc_nam_trc     ! passive tracer informations 

  • branches/2016/dev_merge_2016/NEMOGCM/NEMO/TOP_SRC/trcrst.F90

    r7055 r7485  
    5252      !!---------------------------------------------------------------------- 
    5353      ! 
    54       IF( lk_offline ) THEN 
     54      IF( l_offline ) THEN 
    5555         IF( kt == nittrc000 ) THEN 
    5656            lrst_trc = .FALSE. 
    … …  
    147147          lrst_trc = .FALSE. 
    148148#endif 
    149           IF( lk_offline .AND. ln_rst_list ) THEN 
     149          IF( l_offline .AND. ln_rst_list ) THEN 
    150150             nrst_lst = nrst_lst + 1 
    151151             nitrst = nstocklist( nrst_lst ) 
    … …  
    219219         ENDIF 
    220220         ! 
    221          IF( lk_offline ) THEN     
     221         IF( l_offline ) THEN     
    222222            !                                          ! set the date in offline mode 
    223223            IF( ln_rsttr .AND. nn_rsttr == 2 ) THEN 

  • branches/2016/dev_merge_2016/NEMOGCM/NEMO/TOP_SRC/trcwri.F90

    r7403 r7485  
    4646      IF( nn_timing == 1 )  CALL timing_start('trc_wri') 
    4747      ! 
    48       IF( lk_offline .AND. kt == nittrc000 .AND. lwp ) THEN    ! WRITE root name in date.file for use by postpro 
     48      IF( l_offline .AND. kt == nittrc000 .AND. lwp ) THEN    ! WRITE root name in date.file for use by postpro 
    4949         CALL dia_nam( clhstnam, nn_writetrc,' ' ) 
    5050         CALL ctl_opn( inum, 'date.file', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, numout, lwp, narea ) 

  • branches/2016/dev_merge_2016/NEMOGCM/TOOLS/DOMAINcfg/src/trc_oce.f90

    r6951 r7485  
    4040   !!---------------------------------------------------------------------- 
    4141   LOGICAL, PUBLIC, PARAMETER ::   lk_top     = .FALSE.   !: TOP model 
    42    LOGICAL, PUBLIC, PARAMETER ::   lk_qsr_bio = .FALSE.   !: bio-model light absorption flag 
    43  
    44  
    45  
    46  
    47  
    48  
    49  
    50    !!---------------------------------------------------------------------- 
    51    !!   Default option                                   NO  OFFLINE mode           
    52    !!---------------------------------------------------------------------- 
    53    LOGICAL, PUBLIC, PARAMETER ::   lk_offline = .FALSE.   !: offline flag 
    54  
    55  
    56  
    57  
    58  
    59  
    60  
    61    !!---------------------------------------------------------------------- 
    62    !!   Default option                                   NO  Degradation mode           
    63    !!---------------------------------------------------------------------- 
    64    LOGICAL, PUBLIC, PARAMETER ::   lk_degrad = .FALSE.   !: degradation flag 
     42 
    6543 
    6644   !!---------------------------------------------------------------------- 
Note: See TracChangeset for help on using the changeset viewer.