Changeset 15006


Ignore:
Timestamp:
2021-06-17T11:13:03+02:00 (5 months ago)
Author:
gsamson
Message:

continue C1D_PAPA cleaning (#2680): remove specific c1D step and dyn_cor routines

Location:
NEMO/branches/2021/ticket2680_C1D_PAPA/src/OCE
Files:
2 deleted
6 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2021/ticket2680_C1D_PAPA/src/OCE/C1D/c1d.F90

    r12377 r15006  
    2828   REAL(wp), PUBLIC ::  rn_lat1d     !: Column latitude 
    2929   REAL(wp), PUBLIC ::  rn_lon1d     !: Column longitude 
    30    LOGICAL , PUBLIC ::  ln_c1d_locpt !: Localization (or not) of 1D column in a grid 
    3130 
    3231   !!---------------------------------------------------------------------- 
     
    4746      INTEGER ::   ios   ! Local integer 
    4847      !! 
    49       NAMELIST/namc1d/ rn_lat1d, rn_lon1d , ln_c1d_locpt 
     48      NAMELIST/namc1d/ rn_lat1d, rn_lon1d 
    5049      !!---------------------------------------------------------------------- 
    5150      ! 
     
    6463         WRITE(numout,*) '      column latitude                 rn_lat1d     = ', rn_lat1d 
    6564         WRITE(numout,*) '      column longitude                rn_lon1d     = ', rn_lon1d 
    66          WRITE(numout,*) '      column localization in a grid   ln_c1d_locpt = ', ln_c1d_locpt 
    6765      ENDIF 
    6866      ! 
     
    7674   LOGICAL, PUBLIC, PARAMETER ::   lk_c1d = .FALSE.   !: 1D config. flag de-activated 
    7775   REAL(wp)                   ::   rn_lat1d, rn_lon1d 
    78    LOGICAL , PUBLIC           ::   ln_c1d_locpt = .FALSE.  
    7976CONTAINS 
    8077   SUBROUTINE c1d_init               ! Dummy routine 
  • NEMO/branches/2021/ticket2680_C1D_PAPA/src/OCE/DOM/dom_oce.F90

    r14834 r15006  
    3838   LOGICAL , PUBLIC ::   ln_1st_euler   !: =T start with forward time step or not (=F) 
    3939   LOGICAL , PUBLIC ::   ln_crs         !: Apply grid coarsening to dynamical model output or online passive tracers 
     40   LOGICAL , PUBLIC ::   ln_c1d         !: =T  single column domain (1x1 pt) 
    4041 
    4142   !! Free surface parameters 
  • NEMO/branches/2021/ticket2680_C1D_PAPA/src/OCE/DOM/domain.F90

    r14834 r15006  
    1111   !!   NEMO     1.0  !  2002-08  (G. Madec)  F90: Free form and module 
    1212   !!            2.0  !  2005-11  (V. Garnier) Surface pressure gradient organization 
    13    !!            3.3  !  2010-11  (G. Madec)  initialisation in C1D configuration 
    1413   !!            3.6  !  2013     ( J. Simeon, C. Calone, G. Madec, C. Ethe ) Online coarsening of outputs 
    1514   !!            3.7  !  2015-11  (G. Madec, A. Coward)  time varying zgr by default 
     
    4645   USE dommsk         ! domain: set the mask system 
    4746   USE domwri         ! domain: write the meshmask file 
    48    USE c1d            ! 1D configuration 
    49    USE dyncor_c1d     ! 1D configuration: Coriolis term    (cor_c1d routine) 
    5047   USE wet_dry , ONLY : ll_wd     ! wet & drying flag 
    5148   USE closea  , ONLY : dom_clo   ! closed seas routine 
     
    228225      ! 
    229226 
    230       IF( lk_c1d         )   CALL cor_c1d       ! 1D configuration: Coriolis set at T-point 
    231       ! 
    232  
    233227#if defined key_agrif 
    234228      IF( .NOT. Agrif_Root() ) CALL Agrif_Init_Domain( Kbb, Kmm, Kaa ) 
     
    320314         &             nn_stock, nn_write , ln_mskland  , ln_clobber   , nn_chunksz, ln_1st_euler  , & 
    321315         &             ln_cfmeta, ln_xios_read, nn_wxios 
    322       NAMELIST/namdom/ ln_linssh, rn_Dt, rn_atfp, ln_crs, ln_meshmask 
     316      NAMELIST/namdom/ ln_linssh, rn_Dt, rn_atfp, ln_crs, ln_c1d, ln_meshmask 
    323317      NAMELIST/namtile/ ln_tile, nn_ltile_i, nn_ltile_j 
    324318#if defined key_netcdf4 
     
    361355         WRITE(numout,*) '      asselin time filter parameter           rn_atfp     = ', rn_atfp 
    362356         WRITE(numout,*) '      online coarsening of dynamical fields   ln_crs      = ', ln_crs 
     357         WRITE(numout,*) '      single column domain (1x1pt)            ln_c1d      = ', ln_c1d 
    363358      ENDIF 
    364359      ! 
  • NEMO/branches/2021/ticket2680_C1D_PAPA/src/OCE/DOM/istate.F90

    r14834 r15006  
    2929   USE wet_dry         ! wetting and drying (needed for wad_istate) 
    3030   USE usrdef_istate   ! User defined initial state 
     31   USE c1d 
    3132   ! 
    3233   USE in_out_manager  ! I/O manager 
  • NEMO/branches/2021/ticket2680_C1D_PAPA/src/OCE/IOM/iom.F90

    r14834 r15006  
    2222   USE dom_oce         ! ocean space and time domain 
    2323   USE domutl          ! 
    24    USE c1d             ! 1D vertical configuration 
    2524   USE flo_oce         ! floats module declarations 
    2625   USE lbclnk          ! lateal boundary condition / mpp exchanges 
     
    14101409#endif 
    14111410      ENDIF 
    1412 !some final adjustments 
    1413       ! C1D case : always call lbc_lnk to replicate the central value over the whole 3X3 domain 
    1414       IF( lk_c1d .AND. PRESENT(pv_r2d) )   CALL lbc_lnk( 'iom', pv_r2d,'Z',1.0_wp ) 
    1415       IF( lk_c1d .AND. PRESENT(pv_r3d) )   CALL lbc_lnk( 'iom', pv_r3d,'Z',1.0_wp ) 
    14161411 
    14171412      !--- Apply scale_factor and offset 
  • NEMO/branches/2021/ticket2680_C1D_PAPA/src/OCE/nemogcm.F90

    r14834 r15006  
    5959   USE dia25h  , ONLY : dia_25h_init   ! 25h mean output (initialisation) 
    6060   USE c1d            ! 1D configuration 
    61    USE step_c1d       ! Time stepping loop for the 1D configuration 
    6261#if defined key_top 
    6362   USE trcini         ! passive tracer initialisation 
     
    143142      ! 
    144143      istp = nit000 
    145       ! 
    146 #if defined key_c1d 
    147       DO WHILE ( istp <= nitend .AND. nstop == 0 )    !==  C1D time-stepping  ==! 
    148          CALL stp_c1d( istp ) 
    149          istp = istp + 1 
    150       END DO 
    151 #else 
    152144      ! 
    153145# if defined key_agrif 
     
    204196      ! 
    205197# endif 
    206       ! 
    207 #endif 
    208198      ! 
    209199      IF( ln_diaobs   )   CALL dia_obs_wri 
Note: See TracChangeset for help on using the changeset viewer.