Changeset 11385


Ignore:
Timestamp:
2019-08-01T14:05:25+02:00 (16 months ago)
Author:
clem
Message:

remove key_floats from the code and replace it by a logical ln_floats

Location:
NEMO/branches/2019/dev_r10984_HPC-13_IRRMANN_BDY_optimization
Files:
43 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2019/dev_r10984_HPC-13_IRRMANN_BDY_optimization/cfgs/AGRIF_DEMO/EXPREF/1_namelist_cfg

    r11365 r11385  
    363363!!   namdiu       Cool skin and warm layer models                       (default: OFF) 
    364364!!   namdiu       Cool skin and warm layer models                       (default: OFF) 
    365 !!   namflo       float parameters                                      ("key_float") 
     365!!   namflo       float parameters                                      (default: OFF) 
    366366!!   nam_diaharm  Harmonic analysis of tidal constituents               (default: OFF) 
    367367!!   nam_diadct   transports through some sections                      (default: OFF) 
  • NEMO/branches/2019/dev_r10984_HPC-13_IRRMANN_BDY_optimization/cfgs/AGRIF_DEMO/EXPREF/2_namelist_cfg

    r11365 r11385  
    312312!!   namdiu       Cool skin and warm layer models                       (default: OFF) 
    313313!!   namdiu       Cool skin and warm layer models                       (default: OFF) 
    314 !!   namflo       float parameters                                      ("key_float") 
     314!!   namflo       float parameters                                      (default: OFF) 
    315315!!   nam_diaharm  Harmonic analysis of tidal constituents               (default: OFF) 
    316316!!   nam_diadct   transports through some sections                      (default: OFF) 
  • NEMO/branches/2019/dev_r10984_HPC-13_IRRMANN_BDY_optimization/cfgs/AGRIF_DEMO/EXPREF/3_namelist_cfg

    r11365 r11385  
    312312!!   namdiu       Cool skin and warm layer models                       (default: OFF) 
    313313!!   namdiu       Cool skin and warm layer models                       (default: OFF) 
    314 !!   namflo       float parameters                                      ("key_float") 
     314!!   namflo       float parameters                                      (default: OFF) 
    315315!!   nam_diaharm  Harmonic analysis of tidal constituents               (default: OFF) 
    316316!!   nam_diadct   transports through some sections                      (default: OFF) 
  • NEMO/branches/2019/dev_r10984_HPC-13_IRRMANN_BDY_optimization/cfgs/AGRIF_DEMO/EXPREF/namelist_cfg

    r11365 r11385  
    363363!!   namdiu       Cool skin and warm layer models                       (default: OFF) 
    364364!!   namdiu       Cool skin and warm layer models                       (default: OFF) 
    365 !!   namflo       float parameters                                      ("key_float") 
     365!!   namflo       float parameters                                      (default: OFF) 
    366366!!   nam_diaharm  Harmonic analysis of tidal constituents               (default: OFF) 
    367367!!   nam_diadct   transports through some sections                      (default: OFF) 
  • NEMO/branches/2019/dev_r10984_HPC-13_IRRMANN_BDY_optimization/cfgs/AMM12/EXPREF/namelist_cfg

    r11365 r11385  
    350350!!   namdiu       Cool skin and warm layer models                       (default: OFF) 
    351351!!   namdiu       Cool skin and warm layer models                       (default: OFF) 
    352 !!   namflo       float parameters                                      ("key_float") 
     352!!   namflo       float parameters                                      (default: OFF) 
    353353!!   nam_diaharm  Harmonic analysis of tidal constituents               (default: OFF) 
    354354!!   nam_diadct   transports through some sections                      (default: OFF) 
  • NEMO/branches/2019/dev_r10984_HPC-13_IRRMANN_BDY_optimization/cfgs/C1D_PAPA/EXPREF/namelist_cfg

    r11365 r11385  
    420420!!   namdiu       Cool skin and warm layer models                       (default: OFF) 
    421421!!   namdiu       Cool skin and warm layer models                       (default: OFF) 
    422 !!   namflo       float parameters                                      ("key_float") 
     422!!   namflo       float parameters                                      (default: OFF) 
    423423!!   nam_diaharm  Harmonic analysis of tidal constituents               (default: OFF) 
    424424!!   nam_diadct   transports through some sections                      (default: OFF) 
     
    445445/ 
    446446!----------------------------------------------------------------------- 
    447 &namflo        !   float parameters                                     ("key_float") 
     447&namflo        !   float parameters                                     (default: OFF) 
    448448!----------------------------------------------------------------------- 
    449449/ 
  • NEMO/branches/2019/dev_r10984_HPC-13_IRRMANN_BDY_optimization/cfgs/GYRE_BFM/EXPREF/namelist_cfg

    r11365 r11385  
    227227!!   namdiu       Cool skin and warm layer models                       (default: OFF) 
    228228!!   namdiu       Cool skin and warm layer models                       (default: OFF) 
    229 !!   namflo       float parameters                                      ("key_float") 
     229!!   namflo       float parameters                                      (default: OFF) 
    230230!!   nam_diaharm  Harmonic analysis of tidal constituents               (default: OFF) 
    231231!!   nam_diadct   transports through some sections                      (default: OFF) 
  • NEMO/branches/2019/dev_r10984_HPC-13_IRRMANN_BDY_optimization/cfgs/GYRE_PISCES/EXPREF/namelist_cfg

    r11365 r11385  
    221221!!   namdiu       Cool skin and warm layer models                       (default: OFF) 
    222222!!   namdiu       Cool skin and warm layer models                       (default: OFF) 
    223 !!   namflo       float parameters                                      ("key_float") 
     223!!   namflo       float parameters                                      (default: OFF) 
    224224!!   nam_diaharm  Harmonic analysis of tidal constituents               (default: OFF) 
    225225!!   nam_diadct   transports through some sections                      (default: OFF) 
  • NEMO/branches/2019/dev_r10984_HPC-13_IRRMANN_BDY_optimization/cfgs/ORCA2_ICE_PISCES/EXPREF/namelist_cfg

    r11365 r11385  
    391391!!   namdiu       Cool skin and warm layer models                       (default: OFF) 
    392392!!   namdiu       Cool skin and warm layer models                       (default: OFF) 
    393 !!   namflo       float parameters                                      ("key_float") 
     393!!   namflo       float parameters                                      (default: OFF) 
    394394!!   nam_diaharm  Harmonic analysis of tidal constituents               (default: OFF) 
    395395!!   nam_diadct   transports through some sections                      (default: OFF) 
  • NEMO/branches/2019/dev_r10984_HPC-13_IRRMANN_BDY_optimization/cfgs/ORCA2_OFF_PISCES/EXPREF/namelist_cfg

    r11365 r11385  
    376376!!   namdiu       Cool skin and warm layer models                       (default: OFF) 
    377377!!   namdiu       Cool skin and warm layer models                       (default: OFF) 
    378 !!   namflo       float parameters                                      ("key_float") 
     378!!   namflo       float parameters                                      (default: OFF) 
    379379!!   nam_diaharm  Harmonic analysis of tidal constituents               (default: OFF) 
    380380!!   nam_diadct   transports through some sections                      (default: OFF) 
     
    401401/ 
    402402!----------------------------------------------------------------------- 
    403 &namflo        !   float parameters                                     ("key_float") 
     403&namflo        !   float parameters                                     (default: OFF) 
    404404!----------------------------------------------------------------------- 
    405405/ 
  • NEMO/branches/2019/dev_r10984_HPC-13_IRRMANN_BDY_optimization/cfgs/ORCA2_OFF_TRC/EXPREF/namelist_cfg

    r11267 r11385  
    374374!!   namdiu       Cool skin and warm layer models                       (default: OFF) 
    375375!!   namdiu       Cool skin and warm layer models                       (default: OFF) 
    376 !!   namflo       float parameters                                      ("key_float") 
     376!!   namflo       float parameters                                      (default: OFF) 
    377377!!   nam_diaharm  Harmonic analysis of tidal constituents               ("key_diaharm") 
    378378!!   namdct       transports through some sections                      ("key_diadct") 
     
    399399/ 
    400400!----------------------------------------------------------------------- 
    401 &namflo        !   float parameters                                     ("key_float") 
     401&namflo        !   float parameters                                     (default: OFF) 
    402402!----------------------------------------------------------------------- 
    403403/ 
  • NEMO/branches/2019/dev_r10984_HPC-13_IRRMANN_BDY_optimization/cfgs/ORCA2_SAS_ICE/EXPREF/namelist_cfg

    r11365 r11385  
    177177!!   namdiu       Cool skin and warm layer models                       (default: OFF) 
    178178!!   namdiu       Cool skin and warm layer models                       (default: OFF) 
    179 !!   namflo       float parameters                                      ("key_float") 
     179!!   namflo       float parameters                                      (default: OFF) 
    180180!!   nam_diaharm  Harmonic analysis of tidal constituents               (default: OFF) 
    181181!!   nam_diadct   transports through some sections                      (default: OFF) 
  • NEMO/branches/2019/dev_r10984_HPC-13_IRRMANN_BDY_optimization/cfgs/SHARED/field_def_nemo-oce.xml

    r11362 r11385  
    524524      </field_group> 
    525525       
    526       <!-- variables available with key_float --> 
     526      <!-- variables available with ln_floats --> 
    527527 
    528528      <field_group id="floatvar" grid_ref="grid_T_nfloat"  operation="instant" > 
  • NEMO/branches/2019/dev_r10984_HPC-13_IRRMANN_BDY_optimization/cfgs/SHARED/namelist_ref

    r11365 r11385  
    11081108!!   namdiu       Cool skin and warm layer models                       (default: OFF) 
    11091109!!   namdiu       Cool skin and warm layer models                       (default: OFF) 
    1110 !!   namflo       float parameters                                      ("key_float") 
     1110!!   namflo       float parameters                                      (default: OFF) 
    11111111!!   nam_diaharm  Harmonic analysis of tidal constituents               (default: OFF) 
    11121112!!   nam_diadct   transports through some sections                      (default: OFF) 
     
    11451145&namhsb        !  Heat and salt budgets                                 (default: OFF) 
    11461146!----------------------------------------------------------------------- 
    1147    ln_diahsb   = .false.   !  check the heat and salt budgets (T) or not (F) 
     1147   ln_diahsb   = .false.   !  output the heat and salt budgets (T) or not (F) 
    11481148/ 
    11491149!----------------------------------------------------------------------- 
     
    11541154/ 
    11551155!----------------------------------------------------------------------- 
    1156 &namflo        !   float parameters                                     ("key_float") 
    1157 !----------------------------------------------------------------------- 
    1158    jpnfl       = 1         !  total number of floats during the run 
    1159    jpnnewflo   = 0         !  number of floats for the restart 
    1160    ln_rstflo   = .false.   !  float restart (T) or not (F) 
    1161    nn_writefl  =      75   !  frequency of writing in float output file 
    1162    nn_stockfl  =    5475   !  frequency of creation of the float restart file 
    1163    ln_argo     = .false.   !  Argo type floats (stay at the surface each 10 days) 
    1164    ln_flork4   = .false.   !  trajectories computed with a 4th order Runge-Kutta (T) 
    1165    !                       !  or computed with Blanke' scheme (F) 
    1166    ln_ariane   = .true.    !  Input with Ariane tool convention(T) 
    1167    ln_flo_ascii = .true.    !  Output with Ariane tool netcdf convention(F) or ascii file (T) 
     1156&namflo        !   float parameters                                     (default: OFF) 
     1157!----------------------------------------------------------------------- 
     1158   ln_floats   = .false.      ! activate floats or not 
     1159      jpnfl       = 1         !    total number of floats during the run 
     1160      jpnnewflo   = 0         !    number of floats for the restart 
     1161      ln_rstflo   = .false.   !    float restart (T) or not (F) 
     1162      nn_writefl  =      75   !    frequency of writing in float output file 
     1163      nn_stockfl  =    5475   !    frequency of creation of the float restart file 
     1164      ln_argo     = .false.   !    Argo type floats (stay at the surface each 10 days) 
     1165      ln_flork4   = .false.   !    trajectories computed with a 4th order Runge-Kutta (T) 
     1166      !                       !    or computed with Blanke' scheme (F) 
     1167      ln_ariane   = .true.    !    Input with Ariane tool convention(T) 
     1168      ln_flo_ascii= .true.    !    Output with Ariane tool netcdf convention(F) or ascii file (T) 
    11681169/ 
    11691170!----------------------------------------------------------------------- 
  • NEMO/branches/2019/dev_r10984_HPC-13_IRRMANN_BDY_optimization/cfgs/SPITZ12/EXPREF/namelist_cfg

    r11365 r11385  
    352352!!   namdiu       Cool skin and warm layer models                       (default: OFF) 
    353353!!   namdiu       Cool skin and warm layer models                       (default: OFF) 
    354 !!   namflo       float parameters                                      ("key_float") 
     354!!   namflo       float parameters                                      (default: OFF) 
    355355!!   nam_diaharm  Harmonic analysis of tidal constituents               (default: OFF) 
    356356!!   nam_diadct   transports through some sections                      (default: OFF) 
  • NEMO/branches/2019/dev_r10984_HPC-13_IRRMANN_BDY_optimization/doc/namelists/namflo

    r10445 r11385  
    11!----------------------------------------------------------------------- 
    2 &namflo        !   float parameters                                     ("key_float") 
     2&namflo        !   float parameters                                     (default: OFF) 
    33!----------------------------------------------------------------------- 
    4    jpnfl       = 1         !  total number of floats during the run 
    5    jpnnewflo   = 0         !  number of floats for the restart 
    6    ln_rstflo   = .false.   !  float restart (T) or not (F) 
    7    nn_writefl  =      75   !  frequency of writing in float output file 
    8    nn_stockfl  =    5475   !  frequency of creation of the float restart file 
    9    ln_argo     = .false.   !  Argo type floats (stay at the surface each 10 days) 
    10    ln_flork4   = .false.   !  trajectories computed with a 4th order Runge-Kutta (T) 
    11    !                       !  or computed with Blanke' scheme (F) 
    12    ln_ariane   = .true.    !  Input with Ariane tool convention(T) 
    13    ln_flo_ascii = .true.    !  Output with Ariane tool netcdf convention(F) or ascii file (T) 
     4   ln_floats   = .false.      ! activate floats or not 
     5      jpnfl       = 1         !    total number of floats during the run 
     6      jpnnewflo   = 0         !    number of floats for the restart 
     7      ln_rstflo   = .false.   !    float restart (T) or not (F) 
     8      nn_writefl  =      75   !    frequency of writing in float output file 
     9      nn_stockfl  =    5475   !    frequency of creation of the float restart file 
     10      ln_argo     = .false.   !    Argo type floats (stay at the surface each 10 days) 
     11      ln_flork4   = .false.   !    trajectories computed with a 4th order Runge-Kutta (T) 
     12      !                       !    or computed with Blanke' scheme (F) 
     13      ln_ariane   = .true.    !    Input with Ariane tool convention(T) 
     14      ln_flo_ascii= .true.    !    Output with Ariane tool netcdf convention(F) or ascii file (T) 
    1415/ 
  • NEMO/branches/2019/dev_r10984_HPC-13_IRRMANN_BDY_optimization/doc/namelists/namhsb

    r10075 r11385  
    22&namhsb        !  Heat and salt budgets                                 (default: OFF) 
    33!----------------------------------------------------------------------- 
    4    ln_diahsb   = .false.   !  check the heat and salt budgets (T) or not (F) 
     4   ln_diahsb   = .false.   !  output the heat and salt budgets (T) or not (F) 
    55/ 
  • NEMO/branches/2019/dev_r10984_HPC-13_IRRMANN_BDY_optimization/src/ICE/icerst.F90

    r11358 r11385  
    123123      CALL iom_rstput( iter, nitrst, numriw, 'v_s' , v_s  ) 
    124124      CALL iom_rstput( iter, nitrst, numriw, 'sv_i', sv_i ) 
    125       CALL iom_rstput( iter, nitrst, numriw, 'oa_i', oa_i ) 
    126125      CALL iom_rstput( iter, nitrst, numriw, 'a_i' , a_i  ) 
    127126      CALL iom_rstput( iter, nitrst, numriw, 't_su', t_su ) 
     127      ! ice age 
     128      CALL iom_rstput( iter, nitrst, numriw, 'oa_i', oa_i ) 
    128129      ! Melt ponds 
    129130      CALL iom_rstput( iter, nitrst, numriw, 'a_ip', a_ip ) 
     
    144145      END DO 
    145146      ! ice velocity 
    146       CALL iom_rstput( iter, nitrst, numriw, 'u_ice', u_ice ) ! u_ice 
    147       CALL iom_rstput( iter, nitrst, numriw, 'v_ice', v_ice ) ! v_ice 
     147      CALL iom_rstput( iter, nitrst, numriw, 'u_ice', u_ice ) 
     148      CALL iom_rstput( iter, nitrst, numriw, 'v_ice', v_ice ) 
    148149      ! fields needed for Met Office (Jules) coupling 
    149150      IF( ln_cpl ) THEN 
     
    171172      INTEGER           ::   jk 
    172173      LOGICAL           ::   llok 
    173       INTEGER           ::   id1            ! local integer 
     174      INTEGER           ::   id1, id2            ! local integer 
    174175      CHARACTER(len=25) ::   znam 
    175176      CHARACTER(len=2)  ::   zchar, zchar1 
     
    205206      CALL iom_get( numrir, jpdom_autoglo, 'v_s' , v_s  ) 
    206207      CALL iom_get( numrir, jpdom_autoglo, 'sv_i', sv_i ) 
    207       CALL iom_get( numrir, jpdom_autoglo, 'oa_i', oa_i ) 
    208208      CALL iom_get( numrir, jpdom_autoglo, 'a_i' , a_i  ) 
    209209      CALL iom_get( numrir, jpdom_autoglo, 't_su', t_su ) 
     210      ! ice age 
     211      id1 = iom_varid( numrir, 'oa_i' , ldstop = .FALSE. ) 
     212      IF( id1 > 0 ) THEN                       ! fields exist 
     213         CALL iom_get( numrir, jpdom_autoglo, 'oa_i', oa_i ) 
     214      ELSE                                     ! start from rest 
     215         IF(lwp) WRITE(numout,*) '   ==>>   previous run without ice age output then set it to zero' 
     216         oa_i(:,:,:) = 0._wp 
     217      ENDIF 
    210218      ! Melt ponds 
    211       id1 = iom_varid( numrir, 'a_ip' , ldstop = .FALSE. ) 
    212       IF( id1 > 0 ) THEN                       ! fields exist (melt ponds) 
     219      id2 = iom_varid( numrir, 'a_ip' , ldstop = .FALSE. ) 
     220      IF( id2 > 0 ) THEN                       ! fields exist 
    213221         CALL iom_get( numrir, jpdom_autoglo, 'a_ip' , a_ip ) 
    214222         CALL iom_get( numrir, jpdom_autoglo, 'v_ip' , v_ip ) 
  • NEMO/branches/2019/dev_r10984_HPC-13_IRRMANN_BDY_optimization/src/OCE/DIA/diadct.F90

    r11383 r11385  
    4343 
    4444   !                         !!** namelist variables ** 
    45    LOGICAL, PUBLIC ::   ln_diadct     ! Calculate transport thru a section or not 
    46    INTEGER         ::   nn_dct        ! Frequency of computation 
    47    INTEGER         ::   nn_dctwri     ! Frequency of output 
    48    INTEGER         ::   nn_secdebug   ! Number of the section to debug 
     45   LOGICAL, PUBLIC ::   ln_diadct     !: Calculate transport thru a section or not 
     46   INTEGER         ::   nn_dct        !  Frequency of computation 
     47   INTEGER         ::   nn_dctwri     !  Frequency of output 
     48   INTEGER         ::   nn_secdebug   !  Number of the section to debug 
    4949    
    5050   INTEGER, PARAMETER :: nb_class_max  = 10 
     
    12401240   !!   Dummy module                                              
    12411241   !!---------------------------------------------------------------------- 
    1242    PUBLIC   dia_dct      ! routine called by step.F90 
    1243    PUBLIC   dia_dct_init ! routine called by nemogcm.F90 
    12441242   LOGICAL, PUBLIC ::   ln_diadct = .FALSE. 
    1245    ! 
    12461243CONTAINS 
    1247    ! 
    12481244   SUBROUTINE dia_dct_init 
     1245      IMPLICIT NONE 
    12491246   END SUBROUTINE dia_dct_init 
    1250    ! 
    12511247   SUBROUTINE dia_dct( kt ) 
    1252      INTEGER, INTENT(in) ::   kt 
     1248      IMPLICIT NONE 
     1249      INTEGER, INTENT(in) ::   kt 
    12531250   END SUBROUTINE dia_dct 
    12541251   ! 
  • NEMO/branches/2019/dev_r10984_HPC-13_IRRMANN_BDY_optimization/src/OCE/FLO/flo4rk.F90

    r10068 r11385  
    44   !! Ocean floats :   trajectory computation using a 4th order Runge-Kutta 
    55   !!====================================================================== 
    6 #if   defined key_floats 
    7    !!---------------------------------------------------------------------- 
    8    !!   'key_floats'                                     float trajectories 
     6   !! 
    97   !!---------------------------------------------------------------------- 
    108   !!   flo_4rk        : Compute the geographical position of floats 
     
    445443   END SUBROUTINE flo_interp 
    446444 
    447 #  else 
    448    !!---------------------------------------------------------------------- 
    449    !!   No floats                                              Dummy module 
    450    !!---------------------------------------------------------------------- 
    451 #endif 
    452     
    453445   !!====================================================================== 
    454446END MODULE flo4rk 
  • NEMO/branches/2019/dev_r10984_HPC-13_IRRMANN_BDY_optimization/src/OCE/FLO/flo_oce.F90

    r10425 r11385  
    66   !! History :   OPA  ! 1999-10  (CLIPPER projet) 
    77   !!   NEMO      1.0  ! 2002-11  (G. Madec, A. Bozec)  F90: Free form and module 
    8    !!---------------------------------------------------------------------- 
    9 #if   defined   key_floats 
    10    !!---------------------------------------------------------------------- 
    11    !!   'key_floats'                                        drifting floats 
    128   !!---------------------------------------------------------------------- 
    139   USE par_oce         ! ocean parameters 
     
    2016   PUBLIC   flo_oce_alloc   ! Routine called in floats.F90 
    2117 
    22    LOGICAL, PUBLIC, PARAMETER ::   lk_floats = .TRUE.    !: float flag 
    23  
    2418   !! float parameters 
    2519   !! ---------------- 
     20   LOGICAL, PUBLIC ::   ln_floats   !: Activate floats or not 
    2621   INTEGER, PUBLIC ::   jpnfl       !: total number of floats during the run 
    2722   INTEGER, PUBLIC ::   jpnnewflo   !: number of floats added in a new run 
     
    6863   END FUNCTION flo_oce_alloc 
    6964 
    70 #else 
    71    !!---------------------------------------------------------------------- 
    72    !!   Default option :                                 NO drifting floats 
    73    !!---------------------------------------------------------------------- 
    74    LOGICAL, PUBLIC, PARAMETER ::   lk_floats = .FALSE.   !: float flag 
    75 #endif 
    76  
    7765   !!====================================================================== 
    7866END MODULE flo_oce 
  • NEMO/branches/2019/dev_r10984_HPC-13_IRRMANN_BDY_optimization/src/OCE/FLO/floats.F90

    r11317 r11385  
    77   !!   NEMO     1.0  ! 2002-06  (A. Bozec)  F90, Free form and module 
    88   !!---------------------------------------------------------------------- 
    9 #if   defined   key_floats 
    10    !!---------------------------------------------------------------------- 
    11    !!   'key_floats'                                     float trajectories 
     9   !! 
    1210   !!---------------------------------------------------------------------- 
    1311   !!   flo_stp   : float trajectories computation 
     
    3028 
    3129   PUBLIC   flo_stp    ! routine called by step.F90 
    32    PUBLIC   flo_init   ! routine called by opa.F90 
     30   PUBLIC   flo_init   ! routine called by nemogcm.F90 
    3331 
    3432   !!---------------------------------------------------------------------- 
     
    8179      INTEGER ::   ios                 ! Local integer output status for namelist read 
    8280      ! 
    83       NAMELIST/namflo/ jpnfl, jpnnewflo, ln_rstflo, nn_writefl, nn_stockfl, ln_argo, ln_flork4, ln_ariane, ln_flo_ascii 
     81      NAMELIST/namflo/ ln_floats, jpnfl, jpnnewflo, ln_rstflo, nn_writefl, nn_stockfl, ln_argo, ln_flork4, ln_ariane, ln_flo_ascii 
    8482      !!--------------------------------------------------------------------- 
    8583      ! 
     
    10098         WRITE(numout,*) 
    10199         WRITE(numout,*) '         Namelist floats :' 
    102          WRITE(numout,*) '            number of floats                      jpnfl        = ', jpnfl 
    103          WRITE(numout,*) '            number of new floats                  jpnflnewflo  = ', jpnnewflo 
    104          WRITE(numout,*) '            restart                               ln_rstflo    = ', ln_rstflo 
    105          WRITE(numout,*) '            frequency of float output file        nn_writefl   = ', nn_writefl 
    106          WRITE(numout,*) '            frequency of float restart file       nn_stockfl   = ', nn_stockfl 
    107          WRITE(numout,*) '            Argo type floats                      ln_argo      = ', ln_argo 
    108          WRITE(numout,*) '            Computation of T trajectories         ln_flork4    = ', ln_flork4 
    109          WRITE(numout,*) '            Use of ariane convention              ln_ariane    = ', ln_ariane 
    110          WRITE(numout,*) '            ascii output (T) or netcdf output (F) ln_flo_ascii = ', ln_flo_ascii 
     100         WRITE(numout,*) '            Activate floats or not                   ln_floats    = ', ln_floats 
     101         WRITE(numout,*) '               number of floats                      jpnfl        = ', jpnfl 
     102         WRITE(numout,*) '               number of new floats                  jpnflnewflo  = ', jpnnewflo 
     103         WRITE(numout,*) '               restart                               ln_rstflo    = ', ln_rstflo 
     104         WRITE(numout,*) '               frequency of float output file        nn_writefl   = ', nn_writefl 
     105         WRITE(numout,*) '               frequency of float restart file       nn_stockfl   = ', nn_stockfl 
     106         WRITE(numout,*) '               Argo type floats                      ln_argo      = ', ln_argo 
     107         WRITE(numout,*) '               Computation of T trajectories         ln_flork4    = ', ln_flork4 
     108         WRITE(numout,*) '               Use of ariane convention              ln_ariane    = ', ln_ariane 
     109         WRITE(numout,*) '               ascii output (T) or netcdf output (F) ln_flo_ascii = ', ln_flo_ascii 
    111110 
    112111      ENDIF 
    113112      ! 
    114       !                             ! allocate floats arrays 
    115       IF( flo_oce_alloc() /= 0 )   CALL ctl_stop( 'STOP', 'flo_init : unable to allocate arrays' ) 
    116       ! 
    117       !                             ! allocate flodom arrays 
    118       IF( flo_dom_alloc() /= 0 )   CALL ctl_stop( 'STOP', 'flo_dom : unable to allocate arrays' ) 
    119       ! 
    120       !                             ! allocate flowri arrays 
    121       IF( flo_wri_alloc() /= 0 )   CALL ctl_stop( 'STOP', 'flo_wri : unable to allocate arrays' ) 
    122       ! 
    123       !                             ! allocate florst arrays 
    124       IF( flo_rst_alloc() /= 0 )   CALL ctl_stop( 'STOP', 'flo_rst : unable to allocate arrays' ) 
    125       ! 
    126       jpnrstflo = jpnfl-jpnnewflo   ! memory allocation  
    127       ! 
    128       DO jfl = 1, jpnfl             ! vertical axe for netcdf IOM ouput 
    129          nfloat(jfl) = jfl  
    130       END DO 
    131       ! 
    132       CALL flo_dom                  ! compute/read initial position of floats 
    133       ! 
    134       wb(:,:,:) = wn(:,:,:)         ! set wb for computation of floats trajectories at the first time step 
     113      IF( ln_floats ) THEN 
     114         !                             ! allocate floats arrays 
     115         IF( flo_oce_alloc() /= 0 )   CALL ctl_stop( 'STOP', 'flo_init : unable to allocate arrays' ) 
     116         ! 
     117         !                             ! allocate flodom arrays 
     118         IF( flo_dom_alloc() /= 0 )   CALL ctl_stop( 'STOP', 'flo_dom : unable to allocate arrays' ) 
     119         ! 
     120         !                             ! allocate flowri arrays 
     121         IF( flo_wri_alloc() /= 0 )   CALL ctl_stop( 'STOP', 'flo_wri : unable to allocate arrays' ) 
     122         ! 
     123         !                             ! allocate florst arrays 
     124         IF( flo_rst_alloc() /= 0 )   CALL ctl_stop( 'STOP', 'flo_rst : unable to allocate arrays' ) 
     125         ! 
     126         jpnrstflo = jpnfl-jpnnewflo   ! memory allocation  
     127         ! 
     128         DO jfl = 1, jpnfl             ! vertical axe for netcdf IOM ouput 
     129            nfloat(jfl) = jfl  
     130         END DO 
     131         ! 
     132         CALL flo_dom                  ! compute/read initial position of floats 
     133         ! 
     134         wb(:,:,:) = wn(:,:,:)         ! set wb for computation of floats trajectories at the first time step 
     135         ! 
     136      ENDIF 
    135137      ! 
    136138   END SUBROUTINE flo_init 
    137139 
    138 #  else 
    139    !!---------------------------------------------------------------------- 
    140    !!   Default option :                                       Empty module 
    141    !!---------------------------------------------------------------------- 
    142 CONTAINS 
    143    SUBROUTINE flo_stp( kt )          ! Empty routine 
    144       IMPLICIT NONE 
    145       INTEGER, INTENT( in ) :: kt 
    146       WRITE(*,*) 'flo_stp: You should not have seen this print! error?', kt 
    147    END SUBROUTINE flo_stp 
    148    SUBROUTINE flo_init          ! Empty routine 
    149       IMPLICIT NONE 
    150    END SUBROUTINE flo_init 
    151 #endif 
    152  
    153140   !!====================================================================== 
    154141 END MODULE floats 
  • NEMO/branches/2019/dev_r10984_HPC-13_IRRMANN_BDY_optimization/src/OCE/FLO/floblk.F90

    r10425 r11385  
    44   !! Ocean floats :   trajectory computation 
    55   !!====================================================================== 
    6 #if   defined key_floats 
    7    !!---------------------------------------------------------------------- 
    8    !!   'key_floats'                                     float trajectories 
     6   !! 
    97   !!---------------------------------------------------------------------- 
    108   !!    flotblk     : compute float trajectories with Blanke algorithme 
     
    369367   END SUBROUTINE flo_blk 
    370368 
    371 #  else 
    372    !!---------------------------------------------------------------------- 
    373    !!   Default option                                         Empty module 
    374    !!---------------------------------------------------------------------- 
    375 CONTAINS 
    376    SUBROUTINE flo_blk                  ! Empty routine 
    377    END SUBROUTINE flo_blk  
    378 #endif 
    379     
    380369   !!====================================================================== 
    381370END MODULE floblk  
  • NEMO/branches/2019/dev_r10984_HPC-13_IRRMANN_BDY_optimization/src/OCE/FLO/flodom.F90

    r10425 r11385  
    66   !! History :  OPA  ! 1998-07 (Y.Drillet, CLIPPER)  Original code 
    77   !!  NEMO      3.3  ! 2011-09 (C.Bricaud,S.Law-Chune Mercator-Ocean): add ARIANE convention + comsecitc changes 
    8    !!---------------------------------------------------------------------- 
    9 #if   defined key_floats 
    10    !!---------------------------------------------------------------------- 
    11    !!   'key_floats'                                     float trajectories 
    128   !!---------------------------------------------------------------------- 
    139   !!   flo_dom               : initialization of floats 
     
    455451   END FUNCTION flo_dom_alloc 
    456452 
    457  
    458 #else 
    459    !!---------------------------------------------------------------------- 
    460    !!   Default option                                         Empty module 
    461    !!---------------------------------------------------------------------- 
    462 CONTAINS 
    463    SUBROUTINE flo_dom                 ! Empty routine 
    464          WRITE(*,*) 'flo_dom: : You should not have seen this print! error?' 
    465    END SUBROUTINE flo_dom 
    466 #endif 
    467  
    468453   !!====================================================================== 
    469454END MODULE flodom 
  • NEMO/branches/2019/dev_r10984_HPC-13_IRRMANN_BDY_optimization/src/OCE/FLO/florst.F90

    r10425 r11385  
    88   !!   NEMO      1.0  !  2002-10  (A. Bozec)  F90 : Free form and module 
    99   !!             3.2  !  2010-08  (slaw, cbricaud): netcdf outputs and others  
    10    !!---------------------------------------------------------------------- 
    11 #if   defined key_floats 
    12    !!---------------------------------------------------------------------- 
    13    !!   'key_floats'                                     float trajectories 
    1410   !!---------------------------------------------------------------------- 
    1511   USE flo_oce         ! ocean drifting floats 
     
    125121   END SUBROUTINE flo_rst 
    126122 
    127 #  else 
    128    !!---------------------------------------------------------------------- 
    129    !!   Default option                                         Empty module 
    130    !!---------------------------------------------------------------------- 
    131 CONTAINS 
    132    SUBROUTINE flo_rst                 ! Empty routine 
    133    END SUBROUTINE flo_rst 
    134 #endif 
    135  
    136123   !!======================================================================= 
    137124END MODULE florst 
  • NEMO/branches/2019/dev_r10984_HPC-13_IRRMANN_BDY_optimization/src/OCE/FLO/flowri.F90

    r10425 r11385  
    1010   !!   NEMO      1.0  !  2002-10  (A. Bozec)  F90 : Free form and module 
    1111   !!             3.2  !  2010-08  (slaw, cbricaud): netcdf outputs and others  
    12    !!---------------------------------------------------------------------- 
    13 #if   defined key_floats 
    14    !!---------------------------------------------------------------------- 
    15    !!   'key_floats'                                     float trajectories 
    1612   !!---------------------------------------------------------------------- 
    1713   USE flo_oce         ! ocean drifting floats 
     
    179175               CALL ctl_opn( numflo, 'trajec_float', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, numout, .FALSE. ) 
    180176               irecflo = NINT( (nitend-nn_it000) / FLOAT(nn_writefl) ) 
    181                WRITE(numflo,*)cexper,no,irecflo,jpnfl,nn_writefl 
     177               WRITE(numflo,*) cexper, irecflo, jpnfl, nn_writefl 
    182178            ENDIF 
    183179 
     
    277273   END SUBROUTINE flo_wri 
    278274 
    279  
    280 #  else 
    281    !!---------------------------------------------------------------------- 
    282    !!   Default option                                         Empty module 
    283    !!---------------------------------------------------------------------- 
    284 CONTAINS 
    285    SUBROUTINE flo_wri                 ! Empty routine 
    286    END SUBROUTINE flo_wri 
    287 #endif 
    288  
    289275   !!======================================================================= 
    290276END MODULE flowri 
  • NEMO/branches/2019/dev_r10984_HPC-13_IRRMANN_BDY_optimization/src/OCE/IOM/iom.F90

    r11362 r11385  
    212212          CALL iom_set_axis_attr( "depthv", bounds=zw_bnds ) 
    213213          CALL iom_set_axis_attr( "depthw", bounds=zt_bnds ) 
    214           ! 
    215 # if defined key_floats 
    216214          CALL iom_set_axis_attr( "nfloat", (/ (REAL(ji,wp), ji=1,jpnfl) /) ) 
    217 # endif 
    218215# if defined key_si3 
    219216          CALL iom_set_axis_attr( "ncatice", (/ (REAL(ji,wp), ji=1,jpl) /) ) 
  • NEMO/branches/2019/dev_r10984_HPC-13_IRRMANN_BDY_optimization/src/OCE/nemogcm.F90

    r11365 r11385  
    470470      
    471471      !                                      ! Diagnostics 
    472       IF( lk_floats    )   CALL     flo_init    ! drifting Floats 
     472                           CALL     flo_init    ! drifting Floats 
    473473      IF( ln_diacfl    )   CALL dia_cfl_init    ! Initialise CFL diagnostics 
    474474                           CALL dia_ptr_init    ! Poleward TRansports initialization 
  • NEMO/branches/2019/dev_r10984_HPC-13_IRRMANN_BDY_optimization/src/OCE/step.F90

    r11365 r11385  
    214214      ! diagnostics and outputs 
    215215      !<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 
    216       IF( lk_floats  )   CALL flo_stp ( kstp )        ! drifting Floats 
     216      IF( ln_floats  )   CALL flo_stp ( kstp )        ! drifting Floats 
    217217      IF( ln_diacfl  )   CALL dia_cfl ( kstp )        ! Courant number diagnostics 
    218218      IF( lk_diahth  )   CALL dia_hth ( kstp )        ! Thermocline depth (20 degres isotherm depth) 
  • NEMO/branches/2019/dev_r10984_HPC-13_IRRMANN_BDY_optimization/tests/CANAL/EXPREF/namelist_cfg

    r11365 r11385  
    275275!!   namdiu       Cool skin and warm layer models                       (default: OFF) 
    276276!!   namdiu       Cool skin and warm layer models                       (default: OFF) 
    277 !!   namflo       float parameters                                      ("key_float") 
     277!!   namflo       float parameters                                      (default: OFF) 
    278278!!   nam_diaharm  Harmonic analysis of tidal constituents               (default: OFF) 
    279279!!   nam_diadct   transports through some sections                      (default: OFF) 
  • NEMO/branches/2019/dev_r10984_HPC-13_IRRMANN_BDY_optimization/tests/ICE_ADV1D/EXPREF/namelist_cfg

    r11365 r11385  
    201201!!   namdiu       Cool skin and warm layer models                       (default: OFF) 
    202202!!   namdiu       Cool skin and warm layer models                       (default: OFF) 
    203 !!   namflo       float parameters                                      ("key_float") 
     203!!   namflo       float parameters                                      (default: OFF) 
    204204!!   nam_diaharm  Harmonic analysis of tidal constituents               (default: OFF) 
    205205!!   nam_diadct   transports through some sections                      (default: OFF) 
  • NEMO/branches/2019/dev_r10984_HPC-13_IRRMANN_BDY_optimization/tests/ICE_ADV1D/EXPREF/namelist_cfg_120pts

    r11365 r11385  
    201201!!   namdiu       Cool skin and warm layer models                       (default: OFF) 
    202202!!   namdiu       Cool skin and warm layer models                       (default: OFF) 
    203 !!   namflo       float parameters                                      ("key_float") 
     203!!   namflo       float parameters                                      (default: OFF) 
    204204!!   nam_diaharm  Harmonic analysis of tidal constituents               (default: OFF) 
    205205!!   nam_diadct   transports through some sections                      (default: OFF) 
  • NEMO/branches/2019/dev_r10984_HPC-13_IRRMANN_BDY_optimization/tests/ICE_ADV1D/EXPREF/namelist_cfg_240pts

    r11365 r11385  
    201201!!   namdiu       Cool skin and warm layer models                       (default: OFF) 
    202202!!   namdiu       Cool skin and warm layer models                       (default: OFF) 
    203 !!   namflo       float parameters                                      ("key_float") 
     203!!   namflo       float parameters                                      (default: OFF) 
    204204!!   nam_diaharm  Harmonic analysis of tidal constituents               (default: OFF) 
    205205!!   nam_diadct   transports through some sections                      (default: OFF) 
  • NEMO/branches/2019/dev_r10984_HPC-13_IRRMANN_BDY_optimization/tests/ICE_ADV1D/EXPREF/namelist_cfg_60pts

    r11365 r11385  
    201201!!   namdiu       Cool skin and warm layer models                       (default: OFF) 
    202202!!   namdiu       Cool skin and warm layer models                       (default: OFF) 
    203 !!   namflo       float parameters                                      ("key_float") 
     203!!   namflo       float parameters                                      (default: OFF) 
    204204!!   nam_diaharm  Harmonic analysis of tidal constituents               (default: OFF) 
    205205!!   nam_diadct   transports through some sections                      (default: OFF) 
  • NEMO/branches/2019/dev_r10984_HPC-13_IRRMANN_BDY_optimization/tests/ICE_ADV2D/EXPREF/namelist_cfg

    r11365 r11385  
    201201!!   namdiu       Cool skin and warm layer models                       (default: OFF) 
    202202!!   namdiu       Cool skin and warm layer models                       (default: OFF) 
    203 !!   namflo       float parameters                                      ("key_float") 
     203!!   namflo       float parameters                                      (default: OFF) 
    204204!!   nam_diaharm  Harmonic analysis of tidal constituents               (default: OFF) 
    205205!!   nam_diadct   transports through some sections                      (default: OFF) 
  • NEMO/branches/2019/dev_r10984_HPC-13_IRRMANN_BDY_optimization/tests/ICE_AGRIF/EXPREF/1_namelist_cfg

    r11365 r11385  
    201201!!   namdiu       Cool skin and warm layer models                       (default: OFF) 
    202202!!   namdiu       Cool skin and warm layer models                       (default: OFF) 
    203 !!   namflo       float parameters                                      ("key_float") 
     203!!   namflo       float parameters                                      (default: OFF) 
    204204!!   nam_diaharm  Harmonic analysis of tidal constituents               (default: OFF) 
    205205!!   nam_diadct   transports through some sections                      (default: OFF) 
  • NEMO/branches/2019/dev_r10984_HPC-13_IRRMANN_BDY_optimization/tests/ICE_AGRIF/EXPREF/namelist_cfg

    r11365 r11385  
    201201!!   namdiu       Cool skin and warm layer models                       (default: OFF) 
    202202!!   namdiu       Cool skin and warm layer models                       (default: OFF) 
    203 !!   namflo       float parameters                                      ("key_float") 
     203!!   namflo       float parameters                                      (default: OFF) 
    204204!!   nam_diaharm  Harmonic analysis of tidal constituents               (default: OFF) 
    205205!!   nam_diadct   transports through some sections                      (default: OFF) 
  • NEMO/branches/2019/dev_r10984_HPC-13_IRRMANN_BDY_optimization/tests/ISOMIP/EXPREF/namelist_cfg

    r11365 r11385  
    272272!!   namdiu       Cool skin and warm layer models                       (default: OFF) 
    273273!!   namdiu       Cool skin and warm layer models                       (default: OFF) 
    274 !!   namflo       float parameters                                      ("key_float") 
     274!!   namflo       float parameters                                      (default: OFF) 
    275275!!   nam_diaharm  Harmonic analysis of tidal constituents               (default: OFF) 
    276276!!   nam_diadct   transports through some sections                      (default: OFF) 
  • NEMO/branches/2019/dev_r10984_HPC-13_IRRMANN_BDY_optimization/tests/LOCK_EXCHANGE/EXPREF/namelist_FCT2_flux_ubs_cfg

    r11365 r11385  
    277277!!   namdiu       Cool skin and warm layer models                       (default: OFF) 
    278278!!   namdiu       Cool skin and warm layer models                       (default: OFF) 
    279 !!   namflo       float parameters                                      ("key_float") 
     279!!   namflo       float parameters                                      (default: OFF) 
    280280!!   nam_diaharm  Harmonic analysis of tidal constituents               (default: OFF) 
    281281!!   nam_diadct   transports through some sections                      (default: OFF) 
  • NEMO/branches/2019/dev_r10984_HPC-13_IRRMANN_BDY_optimization/tests/OVERFLOW/EXPREF/namelist_zps_FCT4_flux_ubs_cfg

    r11365 r11385  
    291291!!   namdiu       Cool skin and warm layer models                       (default: OFF) 
    292292!!   namdiu       Cool skin and warm layer models                       (default: OFF) 
    293 !!   namflo       float parameters                                      ("key_float") 
     293!!   namflo       float parameters                                      (default: OFF) 
    294294!!   nam_diaharm  Harmonic analysis of tidal constituents               (default: OFF) 
    295295!!   nam_diadct   transports through some sections                      (default: OFF) 
  • NEMO/branches/2019/dev_r10984_HPC-13_IRRMANN_BDY_optimization/tests/VORTEX/EXPREF/1_namelist_cfg

    r11365 r11385  
    272272!!   namdiu       Cool skin and warm layer models                       (default: OFF) 
    273273!!   namdiu       Cool skin and warm layer models                       (default: OFF) 
    274 !!   namflo       float parameters                                      ("key_float") 
     274!!   namflo       float parameters                                      (default: OFF) 
    275275!!   nam_diaharm  Harmonic analysis of tidal constituents               (default: OFF) 
    276276!!   nam_diadct   transports through some sections                      (default: OFF) 
  • NEMO/branches/2019/dev_r10984_HPC-13_IRRMANN_BDY_optimization/tests/VORTEX/EXPREF/namelist_cfg

    r11365 r11385  
    263263!!   namdiu       Cool skin and warm layer models                       (default: OFF) 
    264264!!   namdiu       Cool skin and warm layer models                       (default: OFF) 
    265 !!   namflo       float parameters                                      ("key_float") 
     265!!   namflo       float parameters                                      (default: OFF) 
    266266!!   nam_diaharm  Harmonic analysis of tidal constituents               (default; OFF) 
    267267!!   nam_diadct   transports through some sections                      (default: OFF) 
  • NEMO/branches/2019/dev_r10984_HPC-13_IRRMANN_BDY_optimization/tests/WAD/EXPREF/namelist_cfg

    r11365 r11385  
    421421!!   namdiu       Cool skin and warm layer models                       (default: OFF) 
    422422!!   namdiu       Cool skin and warm layer models                       (default: OFF) 
    423 !!   namflo       float parameters                                      ("key_float") 
     423!!   namflo       float parameters                                      (default: OFF) 
    424424!!   nam_diaharm  Harmonic analysis of tidal constituents               (default: OFF) 
    425425!!   nam_diadct   transports through some sections                      (default: OFF) 
Note: See TracChangeset for help on using the changeset viewer.