Changeset 15023
- Timestamp:
- 2021-06-18T16:35:25+02:00 (3 years ago)
- Location:
- NEMO/trunk
- Files:
-
- 2 deleted
- 89 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/cfgs/AGRIF_DEMO/EXPREF/1_namelist_cfg
r14843 r15023 12 12 !! namtsd data: temperature & salinity (default: OFF) 13 13 !! namcrs coarsened grid (for outputs and/or TOP) (ln_crs =T) 14 !! namc1d 1D configuration options ( "key_c1d")15 !! namc1d_dyndmp 1D newtonian damping applied on currents ( "key_c1d")16 !! namc1d_uvd 1D data (currents) ( "key_c1d")14 !! namc1d 1D configuration options (ln_c1d =T) 15 !! namc1d_dyndmp 1D newtonian damping applied on currents (ln_c1d =T) 16 !! namc1d_uvd 1D data (currents) (ln_c1d =T) 17 17 !!====================================================================== 18 18 ! -
NEMO/trunk/cfgs/AGRIF_DEMO/EXPREF/2_namelist_cfg
r14843 r15023 12 12 !! namtsd data: temperature & salinity (default: OFF) 13 13 !! namcrs coarsened grid (for outputs and/or TOP) (ln_crs =T) 14 !! namc1d 1D configuration options ( "key_c1d")15 !! namc1d_dyndmp 1D newtonian damping applied on currents ( "key_c1d")16 !! namc1d_uvd 1D data (currents) ( "key_c1d")14 !! namc1d 1D configuration options (ln_c1d =T) 15 !! namc1d_dyndmp 1D newtonian damping applied on currents (ln_c1d =T) 16 !! namc1d_uvd 1D data (currents) (ln_c1d =T) 17 17 !!====================================================================== 18 18 ! -
NEMO/trunk/cfgs/AGRIF_DEMO/EXPREF/3_namelist_cfg
r14843 r15023 12 12 !! namtsd data: temperature & salinity (default: OFF) 13 13 !! namcrs coarsened grid (for outputs and/or TOP) (ln_crs =T) 14 !! namc1d 1D configuration options ( "key_c1d")15 !! namc1d_dyndmp 1D newtonian damping applied on currents ( "key_c1d")16 !! namc1d_uvd 1D data (currents) ( "key_c1d")14 !! namc1d 1D configuration options (ln_c1d =T) 15 !! namc1d_dyndmp 1D newtonian damping applied on currents (ln_c1d =T) 16 !! namc1d_uvd 1D data (currents) (ln_c1d =T) 17 17 !!====================================================================== 18 18 ! -
NEMO/trunk/cfgs/AGRIF_DEMO/EXPREF/namelist_cfg
r14843 r15023 12 12 !! namtsd data: temperature & salinity (default: OFF) 13 13 !! namcrs coarsened grid (for outputs and/or TOP) (ln_crs =T) 14 !! namc1d 1D configuration options ( "key_c1d")15 !! namc1d_dyndmp 1D newtonian damping applied on currents ( "key_c1d")16 !! namc1d_uvd 1D data (currents) ( "key_c1d")14 !! namc1d 1D configuration options (ln_c1d =T) 15 !! namc1d_dyndmp 1D newtonian damping applied on currents (ln_c1d =T) 16 !! namc1d_uvd 1D data (currents) (ln_c1d =T) 17 17 !!====================================================================== 18 18 ! -
NEMO/trunk/cfgs/AMM12/EXPREF/namelist_cfg
r14843 r15023 12 12 !! namtsd data: temperature & salinity (default: OFF) 13 13 !! namcrs coarsened grid (for outputs and/or TOP) (ln_crs =T) 14 !! namc1d 1D configuration options ( "key_c1d")15 !! namc1d_dyndmp 1D newtonian damping applied on currents ( "key_c1d")16 !! namc1d_uvd 1D data (currents) ( "key_c1d")14 !! namc1d 1D configuration options (ln_c1d =T) 15 !! namc1d_dyndmp 1D newtonian damping applied on currents (ln_c1d =T) 16 !! namc1d_uvd 1D data (currents) (ln_c1d =T) 17 17 !!====================================================================== 18 18 ! -
NEMO/trunk/cfgs/C1D_PAPA/EXPREF/namelist_cfg
r14843 r15023 26 26 !! namtsd data: temperature & salinity (default: OFF) 27 27 !! namcrs coarsened grid (for outputs and/or TOP) (ln_crs =T) 28 !! namc1d 1D configuration options ( "key_c1d")29 !! namc1d_dyndmp 1D newtonian damping applied on currents ( "key_c1d")30 !! namc1d_uvd 1D data (currents) ( "key_c1d")28 !! namc1d 1D configuration options (ln_c1d =T) 29 !! namc1d_dyndmp 1D newtonian damping applied on currents (ln_c1d =T) 30 !! namc1d_uvd 1D data (currents) (ln_c1d =T) 31 31 !!====================================================================== 32 32 ! … … 51 51 ln_linssh = .true. ! =T linear free surface ==>> model level are fixed in time 52 52 ! 53 rn_Dt = 360. ! time step for the dynamics and tracer 53 rn_Dt = 360. ! time step for the dynamics and tracer 54 ! 55 ln_c1d = .true. ! Single column domain (1x1pt) (T => fill namc1d) 54 56 / 55 57 !----------------------------------------------------------------------- … … 83 85 / 84 86 !----------------------------------------------------------------------- 85 &namc1d ! 1D configuration options ("key_c1d" default: PAPA station) 86 !----------------------------------------------------------------------- 87 rn_lat1d = 50 ! Column latitude 88 rn_lon1d = -145 ! Column longitude 89 ln_c1d_locpt = .true. ! Localization of 1D config in a grid (T) or independant point (F) 90 / 91 !----------------------------------------------------------------------- 92 &namc1d_dyndmp ! U & V newtonian damping ("key_c1d" default: OFF) 87 &namc1d ! 1D configuration options (ln_c1d =T default: PAPA station) 88 !----------------------------------------------------------------------- 89 rn_lat1d = 50. ! Column latitude 90 rn_lon1d = -145. ! Column longitude 91 / 92 !----------------------------------------------------------------------- 93 &namc1d_dyndmp ! U & V newtonian damping (ln_c1d =T default: OFF) 93 94 !----------------------------------------------------------------------- 94 95 ln_dyndmp = .false. ! add a damping term (T) or not (F) 95 96 / 96 97 !----------------------------------------------------------------------- 97 &namc1d_uvd ! data: U & V currents ( "key_c1d"default: OFF)98 &namc1d_uvd ! data: U & V currents (ln_c1d =T default: OFF) 98 99 !----------------------------------------------------------------------- 99 100 ! ! =T read U-V fields for: -
NEMO/trunk/cfgs/C1D_PAPA/MY_SRC/usrdef_nam.F90
r14433 r15023 71 71 kk_cfg = 0 72 72 73 ! Global Domain size: C1D domain is 3 x 3grid-points x 75 or vertical levels74 kpi = 375 kpj = 376 kpk = 75 73 ! Global Domain size: C1D domain is 1 x 1 grid-points x 75 or vertical levels 74 kpi = 1 75 kpj = 1 76 kpk = 75 77 77 ! ! Set the lateral boundary condition of the global domain 78 ldIperio = .TRUE. ; ldJperio = .TRUE. ! C1D configuration : 3x3basin with cyclic Est-West and Norht-South condition78 ldIperio = .TRUE. ; ldJperio = .TRUE. ! C1D configuration : 1x1 basin with cyclic Est-West and Norht-South condition 79 79 ldNFold = .FALSE. ; cdNFtype = '-' 80 80 ! … … 89 89 WRITE(numout,*) ' z-partial-step coordinate flag ln_zps = ', ln_zps 90 90 WRITE(numout,*) ' s-coordinate flag ln_sco = ', ln_sco 91 WRITE(numout,*) ' C1D domain = 3 x 3 x75 grid-points '91 WRITE(numout,*) ' C1D domain = 1 x 1 x 75 grid-points ' 92 92 WRITE(numout,*) ' resulting global domain size : jpiglo = ', kpi 93 93 WRITE(numout,*) ' jpjglo = ', kpj -
NEMO/trunk/cfgs/C1D_PAPA/cpp_C1D_PAPA.fcm
r14239 r15023 1 bld::tool::fppkeys key_ c1d key_xios key_linssh1 bld::tool::fppkeys key_xios key_linssh -
NEMO/trunk/cfgs/GYRE_BFM/EXPREF/namelist_cfg
r14843 r15023 12 12 !! namtsd data: temperature & salinity (default: OFF) 13 13 !! namcrs coarsened grid (for outputs and/or TOP) (ln_crs =T) 14 !! namc1d 1D configuration options ( "key_c1d")15 !! namc1d_dyndmp 1D newtonian damping applied on currents ( "key_c1d")16 !! namc1d_uvd 1D data (currents) ( "key_c1d")14 !! namc1d 1D configuration options (ln_c1d =T) 15 !! namc1d_dyndmp 1D newtonian damping applied on currents (ln_c1d =T) 16 !! namc1d_uvd 1D data (currents) (ln_c1d =T) 17 17 !!====================================================================== 18 18 ! -
NEMO/trunk/cfgs/GYRE_PISCES/EXPREF/namelist_cfg
r14843 r15023 12 12 !! namtsd data: temperature & salinity (default: OFF) 13 13 !! namcrs coarsened grid (for outputs and/or TOP) (ln_crs =T) 14 !! namc1d 1D configuration options ( "key_c1d")15 !! namc1d_dyndmp 1D newtonian damping applied on currents ( "key_c1d")16 !! namc1d_uvd 1D data (currents) ( "key_c1d")14 !! namc1d 1D configuration options (ln_c1d =T) 15 !! namc1d_dyndmp 1D newtonian damping applied on currents (ln_c1d =T) 16 !! namc1d_uvd 1D data (currents) (ln_c1d =T) 17 17 !!====================================================================== 18 18 ! -
NEMO/trunk/cfgs/ORCA2_ICE_ABL/EXPREF/namelist_cfg
r14843 r15023 12 12 !! namtsd data: temperature & salinity (default: OFF) 13 13 !! namcrs coarsened grid (for outputs and/or TOP) (ln_crs =T) 14 !! namc1d 1D configuration options ( "key_c1d")15 !! namc1d_dyndmp 1D newtonian damping applied on currents ( "key_c1d")16 !! namc1d_uvd 1D data (currents) ( "key_c1d")14 !! namc1d 1D configuration options (ln_c1d =T) 15 !! namc1d_dyndmp 1D newtonian damping applied on currents (ln_c1d =T) 16 !! namc1d_uvd 1D data (currents) (ln_c1d =T) 17 17 !!====================================================================== 18 18 ! -
NEMO/trunk/cfgs/ORCA2_ICE_PISCES/EXPREF/namelist_cfg
r14903 r15023 12 12 !! namtsd data: temperature & salinity (default: OFF) 13 13 !! namcrs coarsened grid (for outputs and/or TOP) (ln_crs =T) 14 !! namc1d 1D configuration options ( "key_c1d")15 !! namc1d_dyndmp 1D newtonian damping applied on currents ( "key_c1d")16 !! namc1d_uvd 1D data (currents) ( "key_c1d")14 !! namc1d 1D configuration options (ln_c1d =T) 15 !! namc1d_dyndmp 1D newtonian damping applied on currents (ln_c1d =T) 16 !! namc1d_uvd 1D data (currents) (ln_c1d =T) 17 17 !!====================================================================== 18 18 ! -
NEMO/trunk/cfgs/ORCA2_OFF_PISCES/EXPREF/namelist_cfg
r14843 r15023 12 12 !! namtsd data: temperature & salinity (default: OFF) 13 13 !! namcrs coarsened grid (for outputs and/or TOP) (ln_crs =T) 14 !! namc1d 1D configuration options ( "key_c1d")15 !! namc1d_dyndmp 1D newtonian damping applied on currents ( "key_c1d")16 !! namc1d_uvd 1D data (currents) ( "key_c1d")14 !! namc1d 1D configuration options (ln_c1d =T) 15 !! namc1d_dyndmp 1D newtonian damping applied on currents (ln_c1d =T) 16 !! namc1d_uvd 1D data (currents) (ln_c1d =T) 17 17 !!====================================================================== 18 18 ! … … 61 61 / 62 62 !----------------------------------------------------------------------- 63 &namc1d ! 1D configuration options ( "key_c1d"default: PAPA station)64 !----------------------------------------------------------------------- 65 / 66 !----------------------------------------------------------------------- 67 &namc1d_dyndmp ! U & V newtonian damping ( "key_c1d"default: OFF)68 !----------------------------------------------------------------------- 69 / 70 !----------------------------------------------------------------------- 71 &namc1d_uvd ! data: U & V currents ( "key_c1d"default: OFF)63 &namc1d ! 1D configuration options (ln_c1d =T default: PAPA station) 64 !----------------------------------------------------------------------- 65 / 66 !----------------------------------------------------------------------- 67 &namc1d_dyndmp ! U & V newtonian damping (ln_c1d =T default: OFF) 68 !----------------------------------------------------------------------- 69 / 70 !----------------------------------------------------------------------- 71 &namc1d_uvd ! data: U & V currents (ln_c1d =T default: OFF) 72 72 !----------------------------------------------------------------------- 73 73 / -
NEMO/trunk/cfgs/ORCA2_OFF_TRC/EXPREF/namelist_cfg
r14843 r15023 12 12 !! namtsd data: temperature & salinity (default: OFF) 13 13 !! namcrs coarsened grid (for outputs and/or TOP) (ln_crs =T) 14 !! namc1d 1D configuration options ( "key_c1d")15 !! namc1d_dyndmp 1D newtonian damping applied on currents ( "key_c1d")16 !! namc1d_uvd 1D data (currents) ( "key_c1d")14 !! namc1d 1D configuration options (ln_c1d =T) 15 !! namc1d_dyndmp 1D newtonian damping applied on currents (ln_c1d =T) 16 !! namc1d_uvd 1D data (currents) (ln_c1d =T) 17 17 !!====================================================================== 18 18 ! … … 60 60 / 61 61 !----------------------------------------------------------------------- 62 &namc1d ! 1D configuration options ( "key_c1d"default: PAPA station)63 !----------------------------------------------------------------------- 64 / 65 !----------------------------------------------------------------------- 66 &namc1d_dyndmp ! U & V newtonian damping ( "key_c1d"default: OFF)67 !----------------------------------------------------------------------- 68 / 69 !----------------------------------------------------------------------- 70 &namc1d_uvd ! data: U & V currents ( "key_c1d"default: OFF)62 &namc1d ! 1D configuration options (ln_c1d =T default: PAPA station) 63 !----------------------------------------------------------------------- 64 / 65 !----------------------------------------------------------------------- 66 &namc1d_dyndmp ! U & V newtonian damping (ln_c1d =T default: OFF) 67 !----------------------------------------------------------------------- 68 / 69 !----------------------------------------------------------------------- 70 &namc1d_uvd ! data: U & V currents (ln_c1d =T default: OFF) 71 71 !----------------------------------------------------------------------- 72 72 / -
NEMO/trunk/cfgs/ORCA2_SAS_ICE/EXPREF/namelist_cfg
r14843 r15023 12 12 !! namtsd data: temperature & salinity (default: OFF) 13 13 !! namcrs coarsened grid (for outputs and/or TOP) (ln_crs =T) 14 !! namc1d 1D configuration options ( "key_c1d")15 !! namc1d_dyndmp 1D newtonian damping applied on currents ( "key_c1d")16 !! namc1d_uvd 1D data (currents) ( "key_c1d")14 !! namc1d 1D configuration options (ln_c1d =T) 15 !! namc1d_dyndmp 1D newtonian damping applied on currents (ln_c1d =T) 16 !! namc1d_uvd 1D data (currents) (ln_c1d =T) 17 17 !!====================================================================== 18 18 ! -
NEMO/trunk/cfgs/README.rst
r14446 r15023 131 131 its physical and numerical turbulent-mixing behaviour. 132 132 133 | The water column setup, called NEMO1D, is activated with134 the inclusion of the CPP key ``key_c1d`` and135 has a horizontal domain of 3x3 grid points.133 | The water column setup, called NEMO1D, is activated by 134 setting ``ln_c1d = .true.`` in ``namdom`` and 135 has a horizontal domain of 1x1 grid point. 136 136 | This reference configuration uses 75 vertical levels grid (1m at the surface), 137 137 GLS turbulence scheme with K-epsilon closure and the NCAR bulk formulae. 138 138 139 Data provided with ``INPUTS_C1D_PAPA_v4. 0.tar`` file account for:139 Data provided with ``INPUTS_C1D_PAPA_v4.2.tar`` file account for: 140 140 141 141 - :file:`forcing_PAPASTATION_1h_y201[0-1].nc`: -
NEMO/trunk/cfgs/SHARED/namelist_ref
r14995 r15023 26 26 !! namtsd data: temperature & salinity (default: OFF) 27 27 !! namcrs coarsened grid (for outputs and/or TOP) (ln_crs =T) 28 !! namc1d 1D configuration options ( "key_c1d")29 !! namc1d_dyndmp 1D newtonian damping applied on currents ( "key_c1d")30 !! namc1d_uvd 1D data (currents) ( "key_c1d")28 !! namc1d 1D configuration options (ln_c1d =T) 29 !! namc1d_dyndmp 1D newtonian damping applied on currents (ln_c1d =T) 30 !! namc1d_uvd 1D data (currents) (ln_c1d =T) 31 31 !!====================================================================== 32 32 ! … … 76 76 ! 77 77 ln_crs = .false. ! Logical switch for coarsening module (T => fill namcrs) 78 ln_c1d = .false. ! Single column domain (1x1pt) (T => fill namc1d) 78 79 ! 79 80 ln_meshmask = .true. ! =T create a mesh file … … 161 162 / 162 163 !----------------------------------------------------------------------- 163 &namc1d ! 1D configuration options ("key_c1d" default: PAPA station) 164 !----------------------------------------------------------------------- 165 rn_lat1d = 50 ! Column latitude 166 rn_lon1d = -145 ! Column longitude 167 ln_c1d_locpt = .true. ! Localization of 1D config in a grid (T) or independant point (F) 168 / 169 !----------------------------------------------------------------------- 170 &namc1d_dyndmp ! U & V newtonian damping ("key_c1d" default: OFF) 164 &namc1d ! 1D configuration options (ln_c1d =T default: PAPA station) 165 !----------------------------------------------------------------------- 166 rn_lat1d = 50.1 ! Column latitude 167 rn_lon1d = -144.9 ! Column longitude 168 / 169 !----------------------------------------------------------------------- 170 &namc1d_dyndmp ! U & V newtonian damping (ln_c1d =T default: OFF) 171 171 !----------------------------------------------------------------------- 172 172 ln_dyndmp = .false. ! add a damping term (T) or not (F) 173 173 / 174 174 !----------------------------------------------------------------------- 175 &namc1d_uvd ! data: U & V currents ( "key_c1d"default: OFF)175 &namc1d_uvd ! data: U & V currents (ln_c1d =T default: OFF) 176 176 !----------------------------------------------------------------------- 177 177 ! ! =T read U-V fields for: -
NEMO/trunk/cfgs/SPITZ12/EXPREF/namelist_cfg
r14843 r15023 12 12 !! namtsd data: temperature & salinity (default: OFF) 13 13 !! namcrs coarsened grid (for outputs and/or TOP) (ln_crs =T) 14 !! namc1d 1D configuration options ( "key_c1d")15 !! namc1d_dyndmp 1D newtonian damping applied on currents ( "key_c1d")16 !! namc1d_uvd 1D data (currents) ( "key_c1d")14 !! namc1d 1D configuration options (ln_c1d =T) 15 !! namc1d_dyndmp 1D newtonian damping applied on currents (ln_c1d =T) 16 !! namc1d_uvd 1D data (currents) (ln_c1d =T) 17 17 !!====================================================================== 18 18 ! -
NEMO/trunk/cfgs/WED025/EXPREF/namelist_cfg
r14843 r15023 26 26 !! namtsd data: temperature & salinity (default: OFF) 27 27 !! namcrs coarsened grid (for outputs and/or TOP) (ln_crs =T) 28 !! namc1d 1D configuration options ( "key_c1d")29 !! namc1d_dyndmp 1D newtonian damping applied on currents ( "key_c1d")30 !! namc1d_uvd 1D data (currents) ( "key_c1d")28 !! namc1d 1D configuration options (ln_c1d =T) 29 !! namc1d_dyndmp 1D newtonian damping applied on currents (ln_c1d =T) 30 !! namc1d_uvd 1D data (currents) (ln_c1d =T) 31 31 !!====================================================================== 32 32 ! … … 82 82 / 83 83 !----------------------------------------------------------------------- 84 &namc1d ! 1D configuration options ( "key_c1d"default: PAPA station)85 !----------------------------------------------------------------------- 86 / 87 !----------------------------------------------------------------------- 88 &namc1d_dyndmp ! U & V newtonian damping ( "key_c1d"default: OFF)89 !----------------------------------------------------------------------- 90 / 91 !----------------------------------------------------------------------- 92 &namc1d_uvd ! data: U & V currents ( "key_c1d"default: OFF)84 &namc1d ! 1D configuration options (ln_c1d =T default: PAPA station) 85 !----------------------------------------------------------------------- 86 / 87 !----------------------------------------------------------------------- 88 &namc1d_dyndmp ! U & V newtonian damping (ln_c1d =T default: OFF) 89 !----------------------------------------------------------------------- 90 / 91 !----------------------------------------------------------------------- 92 &namc1d_uvd ! data: U & V currents (ln_c1d =T default: OFF) 93 93 !----------------------------------------------------------------------- 94 94 / -
NEMO/trunk/src/ICE/icestp.F90
r14997 r15023 159 159 CALL ice_rst_opn( kt ) ! Open Ice restart file (if necessary) 160 160 ! 161 IF( ln_icedyn .AND. .NOT.l k_c1d ) &161 IF( ln_icedyn .AND. .NOT.ln_c1d ) & 162 162 & CALL ice_dyn( kt, Kmm ) ! -- Ice dynamics 163 163 ! -
NEMO/trunk/src/OCE/ASM/asminc.F90
r14834 r15023 617 617 !!gm 618 618 619 IF( ln_zps .AND. .NOT. l k_c1d .AND. .NOT. ln_isfcav) &619 IF( ln_zps .AND. .NOT. ln_c1d .AND. .NOT. ln_isfcav) & 620 620 & CALL zps_hde ( kt, Kmm, jpts, pts(:,:,:,:,Kbb), gtsu, gtsv, & ! Partial steps: before horizontal gradient 621 621 & rhd, gru , grv ) ! of t, s, rd at the last ocean level 622 IF( ln_zps .AND. .NOT. l k_c1d .AND. ln_isfcav) &622 IF( ln_zps .AND. .NOT. ln_c1d .AND. ln_isfcav) & 623 623 & CALL zps_hde_isf( nit000, Kmm, jpts, pts(:,:,:,:,Kbb), gtsu, gtsv, gtui, gtvi, & ! Partial steps for top cell (ISF) 624 624 & rhd, gru , grv , grui, grvi ) ! of t, s, rd at the last ocean level -
NEMO/trunk/src/OCE/C1D/c1d.F90
r12377 r15023 8 8 !! 3.5 ! 2013-10 (D. Calvert) add namelist 9 9 !!---------------------------------------------------------------------- 10 #if defined key_c1d 11 !!---------------------------------------------------------------------- 12 !! 'key_c1d' 1D column configuration 10 13 11 !!---------------------------------------------------------------------- 14 12 !! c1d_init : read in the C1D namelist … … 24 22 PUBLIC c1d_init ! called by nemogcm.F90 25 23 26 LOGICAL , PUBLIC, PARAMETER :: lk_c1d = .TRUE. ! 1D config. flag27 28 24 REAL(wp), PUBLIC :: rn_lat1d !: Column latitude 29 25 REAL(wp), PUBLIC :: rn_lon1d !: Column longitude 30 LOGICAL , PUBLIC :: ln_c1d_locpt !: Localization (or not) of 1D column in a grid31 26 32 27 !!---------------------------------------------------------------------- … … 47 42 INTEGER :: ios ! Local integer 48 43 !! 49 NAMELIST/namc1d/ rn_lat1d, rn_lon1d , ln_c1d_locpt44 NAMELIST/namc1d/ rn_lat1d, rn_lon1d 50 45 !!---------------------------------------------------------------------- 51 46 ! … … 64 59 WRITE(numout,*) ' column latitude rn_lat1d = ', rn_lat1d 65 60 WRITE(numout,*) ' column longitude rn_lon1d = ', rn_lon1d 66 WRITE(numout,*) ' column localization in a grid ln_c1d_locpt = ', ln_c1d_locpt67 61 ENDIF 68 62 ! 69 63 END SUBROUTINE c1d_init 70 64 71 #else72 !!----------------------------------------------------------------------73 !! Dummy module : No use of 1D configuration74 !!----------------------------------------------------------------------75 USE par_kind ! kind parameters76 LOGICAL, PUBLIC, PARAMETER :: lk_c1d = .FALSE. !: 1D config. flag de-activated77 REAL(wp) :: rn_lat1d, rn_lon1d78 LOGICAL , PUBLIC :: ln_c1d_locpt = .FALSE.79 CONTAINS80 SUBROUTINE c1d_init ! Dummy routine81 END SUBROUTINE c1d_init82 #endif83 84 65 !!====================================================================== 85 66 END MODULE c1d -
NEMO/trunk/src/OCE/C1D/dtauvd.F90
r13497 r15023 26 26 PUBLIC dta_uvd ! called by istate.F90 and dyndmp.90 27 27 28 LOGICAL , PUBLIC :: ln_uvd_init ! Flag to initialise with U & V current data29 LOGICAL , PUBLIC :: ln_uvd_dyndmp ! Flag for Newtonian damping toward U & V current data28 LOGICAL , PUBLIC :: ln_uvd_init = .FALSE. ! Flag to initialise with U & V current data 29 LOGICAL , PUBLIC :: ln_uvd_dyndmp = .FALSE. ! Flag for Newtonian damping toward U & V current data 30 30 31 31 TYPE(FLD), ALLOCATABLE, DIMENSION(:) :: sf_uvd ! structure for input U & V current (file information and data) … … 93 93 94 94 ! 95 IF( ln_uvd_init .OR. ln_uvd_dyndmp) THEN95 IF( ln_uvd_init .OR. ln_uvd_dyndmp ) THEN 96 96 ! !== allocate the data arrays ==! 97 97 ALLOCATE( sf_uvd(2), STAT=ierr0 ) … … 117 117 118 118 119 SUBROUTINE dta_uvd( kt, Kmm, pu vd )119 SUBROUTINE dta_uvd( kt, Kmm, pud, pvd ) 120 120 !!---------------------------------------------------------------------- 121 121 !! *** ROUTINE dta_uvd *** … … 134 134 INTEGER , INTENT(in ) :: kt ! ocean time-step 135 135 INTEGER , INTENT(in ) :: Kmm ! time level index 136 REAL(wp), DIMENSION(jpi,jpj,jpk,2), INTENT( out) :: puvd ! U & V current data 136 REAL(wp), DIMENSION(jpi,jpj,jpk) , INTENT( out) :: pud ! U & V current data 137 REAL(wp), DIMENSION(jpi,jpj,jpk) , INTENT( out) :: pvd ! U & V current data 137 138 ! 138 139 INTEGER :: ji, jj, jk, jl, jkk ! dummy loop indicies … … 146 147 CALL fld_read( kt, 1, sf_uvd ) !== read U & V current data at time step kt ==! 147 148 ! 148 pu vd(:,:,:,1) = sf_uvd(1)%fnow(:,:,:) ! NO mask149 p uvd(:,:,:,2) = sf_uvd(2)%fnow(:,:,:)149 pud(:,:,:) = sf_uvd(1)%fnow(:,:,:) ! NO mask 150 pvd(:,:,:) = sf_uvd(2)%fnow(:,:,:) 150 151 ! 151 152 IF( ln_sco ) THEN !== s- or mixed s-zps-coordinate ==! … … 162 163 zl = gdept(ji,jj,jk,Kmm) 163 164 IF ( zl < gdept_1d(1 ) ) THEN ! extrapolate above the first level of data 164 zup(jk) = pu vd(ji,jj,1,1)165 zvp(jk) = p uvd(ji,jj,1 ,2)165 zup(jk) = pud(ji,jj,1) 166 zvp(jk) = pvd(ji,jj,1) 166 167 ELSEIF( zl > gdept_1d(jpk) ) THEN ! extrapolate below the last level of data 167 zup(jk) = pu vd(ji,jj,jpkm1,1)168 zvp(jk) = p uvd(ji,jj,jpkm1,2)168 zup(jk) = pud(ji,jj,jpkm1) 169 zvp(jk) = pvd(ji,jj,jpkm1) 169 170 ELSE ! inbetween : vertical interpolation between jkk & jkk+1 170 171 DO jkk = 1, jpkm1 ! when gdept(jkk) < zl < gdept(jkk+1) 171 172 IF( (zl-gdept_1d(jkk)) * (zl-gdept_1d(jkk+1)) <= 0._wp ) THEN 172 173 zi = ( zl - gdept_1d(jkk) ) / (gdept_1d(jkk+1)-gdept_1d(jkk)) 173 zup(jk) = pu vd(ji,jj,jkk,1) + ( puvd(ji,jj,jkk+1,1 ) - puvd(ji,jj,jkk,1) ) * zi174 zvp(jk) = p uvd(ji,jj,jkk,2) + ( puvd(ji,jj,jkk+1,2 ) - puvd(ji,jj,jkk,2) ) * zi174 zup(jk) = pud(ji,jj,jkk) + ( pud(ji,jj,jkk+1) - pud(ji,jj,jkk) ) * zi 175 zvp(jk) = pvd(ji,jj,jkk) + ( pvd(ji,jj,jkk+1) - pvd(ji,jj,jkk) ) * zi 175 176 ENDIF 176 177 END DO … … 178 179 END DO 179 180 DO jk = 1, jpkm1 ! apply mask 180 pu vd(ji,jj,jk,1) = zup(jk) * umask(ji,jj,jk)181 p uvd(ji,jj,jk,2) = zvp(jk) * vmask(ji,jj,jk)181 pud(ji,jj,jk) = zup(jk) * umask(ji,jj,jk) 182 pvd(ji,jj,jk) = zvp(jk) * vmask(ji,jj,jk) 182 183 END DO 183 pu vd(ji,jj,jpk,1) = 0._wp184 p uvd(ji,jj,jpk,2) = 0._wp184 pud(ji,jj,jpk) = 0._wp 185 pvd(ji,jj,jpk) = 0._wp 185 186 END_2D 186 187 ! … … 189 190 ELSE !== z- or zps- coordinate ==! 190 191 ! 191 pu vd(:,:,:,1) = puvd(:,:,:,1) * umask(:,:,:) ! apply mask192 p uvd(:,:,:,2) = puvd(:,:,:,2) * vmask(:,:,:)192 pud(:,:,:) = pud(:,:,:) * umask(:,:,:) ! apply mask 193 pvd(:,:,:) = pvd(:,:,:) * vmask(:,:,:) 193 194 ! 194 195 IF( ln_zps ) THEN ! zps-coordinate (partial steps) interpolation at the last ocean level … … 197 198 IF( ik > 1 ) THEN 198 199 zl = ( gdept_1d(ik) - gdept_0(ji,jj,ik) ) / ( gdept_1d(ik) - gdept_1d(ik-1) ) 199 pu vd(ji,jj,ik,1) = (1.-zl) * puvd(ji,jj,ik,1) + zl * puvd(ji,jj,ik-1,1)200 p uvd(ji,jj,ik,2) = (1.-zl) * puvd(ji,jj,ik,2) + zl * puvd(ji,jj,ik-1,2)200 pud(ji,jj,ik) = (1.-zl) * pud(ji,jj,ik) + zl * pud(ji,jj,ik-1) 201 pvd(ji,jj,ik) = (1.-zl) * pvd(ji,jj,ik) + zl * pvd(ji,jj,ik-1) 201 202 ENDIF 202 203 END_2D -
NEMO/trunk/src/OCE/C1D/dyndmp.F90
r13295 r15023 159 159 ! 160 160 ! !== read and interpolate U & V current data at kt ==! 161 CALL dta_uvd( kt, Kmm, zuv_dta ) !!! NOTE: This subroutine must be altered for use outside 162 !!! the C1D context (use of U,V grid variables) 161 CALL dta_uvd( kt, Kmm, zuv_dta(:,:,:,1), zuv_dta(:,:,:,2)) 163 162 ! 164 163 SELECT CASE ( nn_zdmp ) !== Calculate/add Newtonian damping to the momentum trend ==! -
NEMO/trunk/src/OCE/DOM/dom_oce.F90
r14834 r15023 38 38 LOGICAL , PUBLIC :: ln_1st_euler !: =T start with forward time step or not (=F) 39 39 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) 40 41 41 42 !! Free surface parameters -
NEMO/trunk/src/OCE/DOM/domain.F90
r15014 r15023 11 11 !! NEMO 1.0 ! 2002-08 (G. Madec) F90: Free form and module 12 12 !! 2.0 ! 2005-11 (V. Garnier) Surface pressure gradient organization 13 !! 3.3 ! 2010-11 (G. Madec) initialisation in C1D configuration 13 !! 3.3 ! 2010-11 (G. Madec) initialisation in C1D configuration 14 14 !! 3.6 ! 2013 ( J. Simeon, C. Calone, G. Madec, C. Ethe ) Online coarsening of outputs 15 15 !! 3.7 ! 2015-11 (G. Madec, A. Coward) time varying zgr by default … … 46 46 USE dommsk ! domain: set the mask system 47 47 USE domwri ! domain: write the meshmask file 48 USE c1d ! 1D configuration49 USE dyncor_c1d ! 1D configuration: Coriolis term (cor_c1d routine)50 48 USE wet_dry , ONLY : ll_wd ! wet & drying flag 51 49 USE closea , ONLY : dom_clo ! closed seas routine 50 USE c1d 52 51 ! 53 52 USE in_out_manager ! I/O manager … … 129 128 CALL dom_tile_init ! Tile domain 130 129 130 IF( ln_c1d ) CALL c1d_init ! 1D column configuration 131 131 ! 132 132 CALL dom_hgr ! Horizontal mesh … … 226 226 #endif 227 227 228 !229 230 IF( lk_c1d ) CALL cor_c1d ! 1D configuration: Coriolis set at T-point231 228 ! 232 229 … … 320 317 & nn_stock, nn_write , ln_mskland , ln_clobber , nn_chunksz, ln_1st_euler , & 321 318 & ln_cfmeta, ln_xios_read, nn_wxios 322 NAMELIST/namdom/ ln_linssh, rn_Dt, rn_atfp, ln_crs, ln_ meshmask319 NAMELIST/namdom/ ln_linssh, rn_Dt, rn_atfp, ln_crs, ln_c1d, ln_meshmask 323 320 NAMELIST/namtile/ ln_tile, nn_ltile_i, nn_ltile_j 324 321 #if defined key_netcdf4 … … 361 358 WRITE(numout,*) ' asselin time filter parameter rn_atfp = ', rn_atfp 362 359 WRITE(numout,*) ' online coarsening of dynamical fields ln_crs = ', ln_crs 360 WRITE(numout,*) ' single column domain (1x1pt) ln_c1d = ', ln_c1d 363 361 ENDIF 364 362 ! -
NEMO/trunk/src/OCE/DOM/istate.F90
r14834 r15023 76 76 IF(lwp) WRITE(numout,*) '~~~~~~~~~~~' 77 77 78 CALL dta_tsd_init ! Initialisation of T & S input data 79 80 ! IF( lk_c1d ) CALL dta_uvd_init ! Initialization of U & V input data 78 CALL dta_tsd_init ! Initialisation of T & S input data 79 IF( ln_c1d) CALL dta_uvd_init ! Initialisation of U & V input data (c1d only) 81 80 82 81 rhd (:,:,: ) = 0._wp ; rhop (:,:,: ) = 0._wp ! set one for all to 0 at level jpk … … 114 113 ! 115 114 IF( ln_tsd_init ) THEN 116 CALL dta_tsd( nit000, ts(:,:,:,:,Kbb) ) ! read 3D T and S data at nit000 117 ! 115 CALL dta_tsd( nit000, ts(:,:,:,:,Kbb) ) ! read 3D T and S data at nit000 116 ENDIF 117 ! 118 IF( ln_uvd_init .AND. ln_c1d ) THEN 119 CALL dta_uvd( nit000, Kbb, uu(:,:,:,Kbb), vv(:,:,:,Kbb) ) ! read 3D U and V data at nit000 120 ELSE 118 121 uu (:,:,:,Kbb) = 0._wp ! set the ocean at rest 119 122 vv (:,:,:,Kbb) = 0._wp 123 ENDIF 120 124 ! 121 ELSE ! user defined initial T and S 125 ! 126 IF( .NOT. ln_tsd_init .AND. .NOT. ln_uvd_init ) THEN 122 127 DO jk = 1, jpk 123 128 zgdept(:,:,jk) = gdept(:,:,jk,Kbb) … … 129 134 vv (:,:,:,Kmm) = vv (:,:,:,Kbb) 130 135 131 !132 !!gm ==>>> to be moved in usrdef_istate of C1D case133 IF ( ln_uvd_init .AND. lk_c1d ) THEN ! read 3D U and V data at nit000134 ALLOCATE( zuvd(jpi,jpj,jpk,2) )135 CALL dta_uvd( nit000, Kbb, zuvd )136 uu(:,:,:,Kbb) = zuvd(:,:,:,1) ; uu(:,:,:,Kmm) = uu(:,:,:,Kbb)137 vv(:,:,:,Kbb) = zuvd(:,:,:,2) ; vv(:,:,:,Kmm) = vv(:,:,:,Kbb)138 DEALLOCATE( zuvd )139 ENDIF140 !141 !142 136 ENDIF 143 137 #if defined key_agrif -
NEMO/trunk/src/OCE/IOM/iom.F90
r15017 r15023 22 22 USE dom_oce ! ocean space and time domain 23 23 USE domutl ! 24 USE c1d ! 1D vertical configuration25 24 USE flo_oce ! floats module declarations 26 25 USE lbclnk ! lateal boundary condition / mpp exchanges … … 1410 1409 #endif 1411 1410 ENDIF 1412 !some final adjustments1413 ! C1D case : always call lbc_lnk to replicate the central value over the whole 3X3 domain1414 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 )1416 1411 1417 1412 !--- Apply scale_factor and offset -
NEMO/trunk/src/OCE/LBC/lib_mpp.F90
r14433 r15023 76 76 PUBLIC mpp_bcast_nml 77 77 PUBLIC tic_tac 78 #if defined key_mpp_off 79 PUBLIC MPI_wait 80 PUBLIC MPI_Wtime 78 #if defined key_mpi_off 79 PUBLIC MPI_wait 80 PUBLIC MPI_waitall 81 PUBLIC MPI_Wtime 81 82 #endif 82 83 … … 127 128 INTEGER, PUBLIC, PARAMETER :: MPI_REAL = 4 128 129 INTEGER, PUBLIC, PARAMETER :: MPI_DOUBLE_PRECISION = 8 130 INTEGER, PUBLIC, PARAMETER :: MPI_REQUEST_NULL = 1 129 131 LOGICAL, PUBLIC, PARAMETER :: lk_mpp = .FALSE. !: mpp flag 132 INTEGER, PUBLIC, DIMENSION(MPI_STATUS_SIZE) :: MPI_STATUS_IGNORE = 1 ! out from mpi_wait 133 INTEGER, PUBLIC, DIMENSION(MPI_STATUS_SIZE) :: MPI_STATUSES_IGNORE = 1 ! out from mpi_waitall 130 134 #endif 131 135 … … 1401 1405 INTEGER, DIMENSION(MPI_STATUS_SIZE), INTENT( out) :: status 1402 1406 INTEGER , INTENT( out) :: ierror 1407 IF (.FALSE.) THEN ! to avoid compilation warning 1408 status(:) = -1 1409 ierror = -1 1410 ENDIF 1403 1411 END SUBROUTINE mpi_wait 1404 1412 1413 SUBROUTINE mpi_waitall(count, request, status, ierror) 1414 INTEGER , INTENT(in ) :: count 1415 INTEGER, DIMENSION(count) , INTENT(in ) :: request 1416 INTEGER, DIMENSION(MPI_STATUS_SIZE), INTENT( out) :: status 1417 INTEGER , INTENT( out) :: ierror 1418 IF (.FALSE.) THEN ! to avoid compilation warning 1419 status(:) = -1 1420 ierror = -1 1421 ENDIF 1422 END SUBROUTINE mpi_waitall 1405 1423 1406 1424 FUNCTION MPI_Wtime() -
NEMO/trunk/src/OCE/LBC/mppini.F90
r14976 r15023 62 62 !!---------------------------------------------------------------------- 63 63 ! 64 nn_hls = 1 65 jpiglo = Ni0glo + 2 * nn_hls 66 jpjglo = Nj0glo + 2 * nn_hls 67 jpimax = jpiglo 68 jpjmax = jpjglo 69 jpi = jpiglo 70 jpj = jpjglo 71 jpk = MAX( 2, jpkglo ) 72 jpij = jpi*jpj 73 jpni = 1 74 jpnj = 1 75 jpnij = jpni*jpnj 76 nimpp = 1 77 njmpp = 1 78 nidom = FLIO_DOM_NONE 64 nn_comm = 1 65 nn_hls = 1 66 jpiglo = Ni0glo + 2 * nn_hls 67 jpjglo = Nj0glo + 2 * nn_hls 68 jpimax = jpiglo 69 jpjmax = jpjglo 70 jpi = jpiglo 71 jpj = jpjglo 72 jpk = MAX( 2, jpkglo ) 73 jpij = jpi*jpj 74 jpni = 1 75 jpnj = 1 76 jpnij = jpni*jpnj 77 nimpp = 1 78 njmpp = 1 79 nidom = FLIO_DOM_NONE 80 ! 81 mpiSnei(:,:) = -1 82 mpiRnei(:,:) = -1 83 l_SelfPerio(1:2) = l_Iperio ! west, east periodicity by itself 84 l_SelfPerio(3:4) = l_Jperio ! south, north periodicity by itself 85 l_SelfPerio(5:8) = l_Iperio .AND. l_Jperio ! corners bi-periodicity by itself 86 l_IdoNFold = l_NFold ! is this process doing North fold? 79 87 ! 80 88 CALL init_doloop ! set start/end indices or do-loop depending on the halo width value (nn_hls) … … 532 540 END DO 533 541 ! 534 CALL init_excl_landpt ! exclude exchanges which contain only land points542 IF( jpnij > 1) CALL init_excl_landpt ! exclude exchanges which contain only land points 535 543 ! 536 544 ! Save processor layout changes in ascii file -
NEMO/trunk/src/OCE/SBC/fldread.F90
r14437 r15023 38 38 USE ioipsl , ONLY : ymds2ju, ju2ymds ! for calendar 39 39 USE lib_mpp ! MPP library 40 USE lbclnk ! ocean lateral boundary conditions ( C1Dcase)40 USE lbclnk ! ocean lateral boundary conditions (online interpolation case) 41 41 42 42 IMPLICIT NONE … … 356 356 INTEGER :: idvar ! variable ID 357 357 INTEGER :: idmspc ! number of spatial dimensions 358 LOGICAL :: lmoor ! C1D case: point data359 358 REAL(wp), DIMENSION(:,:,:), POINTER :: dta_alias ! short cut 360 359 !!--------------------------------------------------------------------- … … 374 373 CALL lbc_lnk( 'fldread', dta_alias(:,:,:), sdjf%cltype, sdjf%zsgn, kfillmode = jpfillcopy ) 375 374 ELSE ! default case 376 ! C1D case: If product of spatial dimensions == ipk, then x,y are of377 ! size 1 (point/mooring data): this must be read onto the central grid point378 375 idvar = iom_varid( sdjf%num, sdjf%clvar ) 379 376 idmspc = iom_file ( sdjf%num )%ndims( idvar ) 380 377 IF( iom_file( sdjf%num )%luld( idvar ) ) idmspc = idmspc - 1 ! id of the last spatial dimension 381 lmoor = ( idmspc == 0 .OR. PRODUCT( iom_file( sdjf%num )%dimsz( 1:MAX(idmspc,1) ,idvar ) ) == ipk ) 382 ! 383 IF( lk_c1d .AND. lmoor ) THEN 384 CALL iom_get( sdjf%num, jpdom_unknown, sdjf%clvar, dta_alias(2,2,:), sdjf%nrec(1,iaa) ) ! jpdom_unknown -> no lbc_lnk 385 CALL lbc_lnk( 'fldread', dta_alias(:,:,:), 'T', 1., kfillmode = jpfillcopy ) 386 ELSE 387 CALL iom_get( sdjf%num, jpdom_global, sdjf%clvar, dta_alias(:,:,:), sdjf%nrec(1,iaa), & 388 & sdjf%cltype, sdjf%zsgn, kfill = jpfillcopy ) 389 ENDIF 378 CALL iom_get( sdjf%num, jpdom_global, sdjf%clvar, dta_alias(:,:,:), sdjf%nrec(1,iaa), & 379 & sdjf%cltype, sdjf%zsgn, kfill = jpfillcopy ) 390 380 ENDIF 391 381 ! -
NEMO/trunk/src/OCE/TRA/tradmp.F90
r14982 r15023 24 24 USE oce ! ocean: variables 25 25 USE dom_oce ! ocean: domain variables 26 USE c1d ! 1D vertical configuration27 26 USE trd_oce ! trends: ocean variables 28 27 USE trdtra ! trends manager: tracers -
NEMO/trunk/src/OCE/nemogcm.F90
r14834 r15023 59 59 USE dia25h , ONLY : dia_25h_init ! 25h mean output (initialisation) 60 60 USE c1d ! 1D configuration 61 USE step_c1d ! Time stepping loop for the 1D configuration62 61 #if defined key_top 63 62 USE trcini ! passive tracer initialisation … … 143 142 ! 144 143 istp = nit000 145 !146 #if defined key_c1d147 DO WHILE ( istp <= nitend .AND. nstop == 0 ) !== C1D time-stepping ==!148 CALL stp_c1d( istp )149 istp = istp + 1150 END DO151 #else152 144 ! 153 145 # if defined key_agrif … … 204 196 ! 205 197 # endif 206 !207 #endif208 198 ! 209 199 IF( ln_diaobs ) CALL dia_obs_wri … … 417 407 CALL phy_cst ! Physical constants 418 408 CALL eos_init ! Equation of state 419 IF( lk_c1d ) CALL c1d_init ! 1D column configuration420 409 CALL wad_init ! Wetting and drying options 421 410 … … 469 458 470 459 ! ! Dynamics 471 IF( l k_c1d ) CALL dyn_dmp_init ! internal momentum damping460 IF( ln_c1d ) CALL dyn_dmp_init ! internal momentum damping 472 461 CALL dyn_adv_init ! advection (vector or flux form) 473 462 CALL dyn_vor_init ! vorticity term including Coriolis -
NEMO/trunk/src/OCE/step_oce.F90
r14239 r15023 44 44 USE dynspg ! surface pressure gradient (dyn_spg routine) 45 45 USE dynatf ! time-filtering (dyn_atf routine) 46 USE dyndmp ! current damping (dyn_dmp routine) 46 47 47 48 USE traqsr ! solar radiation penetration (tra_qsr routine) -
NEMO/trunk/src/OCE/stpctl.F90
r14433 r15023 18 18 USE oce ! ocean dynamics and tracers variables 19 19 USE dom_oce ! ocean space and time domain variables 20 USE c1d ! 1D vertical configuration21 20 USE zdf_oce , ONLY : ln_zad_Aimp ! ocean vertical physics variables 22 21 USE wet_dry, ONLY : ll_wd, ssh_ref ! reference depth for negative bathy -
NEMO/trunk/src/OCE/stpmlf.F90
r15005 r15023 233 233 vv(:,:,:,Nrhs) = 0._wp 234 234 235 IF( ln_dyndmp .AND. ln_c1d ) CALL dyn_dmp( kstp, Nbb, Nnn, uu(:,:,:,Nrhs), vv(:,:,:,Nrhs), Nrhs ) ! internal damping trends- momentum 236 235 237 IF( ln_tile ) CALL dom_tile_start ! [tiling] DYN tiling loop (1) 236 238 DO jtile = 1, nijtile -
NEMO/trunk/src/OFF/dtadyn.F90
r14310 r15023 21 21 !!---------------------------------------------------------------------- 22 22 USE oce ! ocean dynamics and tracers variables 23 USE c1d ! 1D configuration: l k_c1d23 USE c1d ! 1D configuration: ln_c1d 24 24 USE dom_oce ! ocean domain: variables 25 25 #if defined key_qco … … 135 135 CALL fld_read( kt, 1, sf_dyn ) != read data at kt time step ==! 136 136 ! 137 IF( l_ldfslp .AND. .NOT.l k_c1d ) CALL dta_dyn_slp( kt, Kbb, Kmm ) ! Computation of slopes137 IF( l_ldfslp .AND. .NOT.ln_c1d ) CALL dta_dyn_slp( kt, Kbb, Kmm ) ! Computation of slopes 138 138 ! 139 139 ts(:,:,:,jp_tem,Kmm) = sf_dyn(jf_tem)%fnow(:,:,:) * tmask(:,:,:) ! temperature … … 187 187 avs(:,:,:) = avt(:,:,:) 188 188 ! 189 IF( ln_trabbl .AND. .NOT.l k_c1d ) THEN ! diffusive Bottom boundary layer param189 IF( ln_trabbl .AND. .NOT.ln_c1d ) THEN ! diffusive Bottom boundary layer param 190 190 ahu_bbl(:,:) = sf_dyn(jf_ubl)%fnow(:,:,1) * umask(:,:,1) ! bbl diffusive coef 191 191 ahv_bbl(:,:) = sf_dyn(jf_vbl)%fnow(:,:,1) * vmask(:,:,1) … … 321 321 END DO 322 322 ! 323 IF( l_ldfslp .AND. .NOT.l k_c1d ) THEN ! slopes323 IF( l_ldfslp .AND. .NOT.ln_c1d ) THEN ! slopes 324 324 IF( sf_dyn(jf_tem)%ln_tint ) THEN ! time interpolation 325 325 ALLOCATE( uslpdta (jpi,jpj,jpk,2), vslpdta (jpi,jpj,jpk,2), & … … 628 628 & / REAL( sf_dyn(jf_tem)%nrec(2,sf_dyn(jf_tem)%naa) - sf_dyn(jf_tem)%nrec(2,sf_dyn(jf_tem)%nbb), wp ) 629 629 ztintb = 1. - ztinta 630 IF( l_ldfslp .AND. .NOT.l k_c1d ) THEN ! Computes slopes (here avt is used as workspace)630 IF( l_ldfslp .AND. .NOT.ln_c1d ) THEN ! Computes slopes (here avt is used as workspace) 631 631 uslp (:,:,:) = ztintb * uslpdta (:,:,:,1) + ztinta * uslpdta (:,:,:,2) 632 632 vslp (:,:,:) = ztintb * vslpdta (:,:,:,1) + ztinta * vslpdta (:,:,:,2) … … 640 640 CALL compute_slopes( kt, zts, zuslp, zvslp, zwslpi, zwslpj, Kbb, Kmm ) 641 641 ! 642 IF( l_ldfslp .AND. .NOT.l k_c1d ) THEN ! Computes slopes (here avt is used as workspace)642 IF( l_ldfslp .AND. .NOT.ln_c1d ) THEN ! Computes slopes (here avt is used as workspace) 643 643 uslp (:,:,:) = zuslp (:,:,:) 644 644 vslp (:,:,:) = zvslp (:,:,:) … … 665 665 !!--------------------------------------------------------------------- 666 666 ! 667 IF( l_ldfslp .AND. .NOT.l k_c1d ) THEN ! Computes slopes (here avt is used as workspace)667 IF( l_ldfslp .AND. .NOT.ln_c1d ) THEN ! Computes slopes (here avt is used as workspace) 668 668 CALL eos ( pts, rhd, rhop, gdept_0(:,:,:) ) 669 669 CALL eos_rab( pts, rab_n, Kmm ) ! now local thermal/haline expension ratio at T-points -
NEMO/trunk/src/OFF/nemogcm.F90
r14834 r15023 348 348 CALL phy_cst ! Physical constants 349 349 CALL eos_init ! Equation of state 350 IF( l k_c1d ) CALL c1d_init ! 1D column configuration350 IF( ln_c1d ) CALL c1d_init ! 1D column configuration 351 351 CALL dom_init( Nbb, Nnn, Naa ) ! Domain 352 352 IF( sn_cfctl%l_prtctl ) & -
NEMO/trunk/src/SAS/sbcssm.F90
r14510 r15023 12 12 !!---------------------------------------------------------------------- 13 13 USE oce ! ocean dynamics and tracers variables 14 USE c1d ! 1D configuration: l k_c1d14 USE c1d ! 1D configuration: ln_c1d 15 15 USE dom_oce ! ocean domain: variables 16 16 USE zdf_oce ! ocean vertical physics: variables -
NEMO/trunk/src/TOP/PISCES/P4Z/p4zsms.F90
r14086 r15023 406 406 407 407 IF( cn_cfg == "ORCA" .OR. cn_cfg == "orca") THEN 408 IF( .NOT. l k_c1d ) THEN ! ORCA configuration (not 1D) !408 IF( .NOT. ln_c1d ) THEN ! ORCA configuration (not 1D) ! 409 409 ! ! --------------------------- ! 410 410 ! set total alkalinity, phosphate, nitrate & silicate -
NEMO/trunk/src/TOP/PISCES/SED/trcdmp_sed.F90
r14086 r15023 133 133 IF( trc_dmp_sed_alloc() /= 0 ) CALL ctl_stop( 'STOP', 'trc_dmp_sed_ini: unable to allocate arrays' ) 134 134 ! 135 IF( .NOT.l k_c1d ) THEN135 IF( .NOT.ln_c1d ) THEN 136 136 !Read in mask from file 137 137 restosed(:,:,:) = 0.5 / rday -
NEMO/trunk/src/TOP/TRP/trcdmp.F90
r14086 r15023 199 199 END SELECT 200 200 201 IF( .NOT.l k_c1d ) THEN201 IF( .NOT.ln_c1d ) THEN 202 202 IF( .NOT.ln_tradmp ) & 203 203 & CALL ctl_stop( 'passive tracer damping need ln_tradmp to compute damping coef.' ) -
NEMO/trunk/src/TOP/TRP/trctrp.F90
r14086 r15023 63 63 IF( ln_timing ) CALL timing_start('trc_trp') 64 64 ! 65 IF( .NOT. l k_c1d ) THEN65 IF( .NOT. ln_c1d ) THEN 66 66 ! 67 67 ! ! Partial top/bottom cell: GRADh( trb ) -
NEMO/trunk/tests/C1D_ASICS/EXP00/file_def_nemo-oce.xml
r14025 r15023 21 21 <file_group id="4h" output_freq="4h" output_level="10" enabled=".TRUE."/> <!-- 4h files --> 22 22 23 <file_group id="6h" output_freq="6h" output_level="10" enabled=".TRUE."> <!-- 6h files --> 23 <file_group id="6h" output_freq="6h" output_level="10" enabled=".FALSE."> <!-- 6h files --> 24 24 25 <file id="file61" name_suffix="_grid_T" description="ocean T grid variables" > 25 26 <field field_ref="e3t" /> 26 <field field_ref="toce" name="votemper" operation="instant" freq_op=" 1d" > @toce_e3t / @e3t </field>27 <field field_ref="soce" name="vosaline" operation="instant" freq_op=" 1d" > @soce_e3t / @e3t </field>27 <field field_ref="toce" name="votemper" operation="instant" freq_op="6h" > @toce_e3t / @e3t </field> 28 <field field_ref="soce" name="vosaline" operation="instant" freq_op="6h" > @soce_e3t / @e3t </field> 28 29 <field field_ref="mldkz5" /> 29 30 <field field_ref="mldr10_1" /> … … 37 38 <field field_ref="precip" name="precip" /> 38 39 </file> 40 39 41 </file_group> 40 42 41 43 42 <file_group id="12h" output_freq="12h" output_level="10" enabled=". TRUE."> <!-- 1dfiles -->44 <file_group id="12h" output_freq="12h" output_level="10" enabled=".FALSE."> <!-- 12h files --> 43 45 44 46 <file id="file1" name_suffix="_grid_T" description="ocean T grid variables" > 47 <field field_ref="e3t" /> 48 <field field_ref="toce" name="votemper" operation="instant" freq_op="12h" > @toce_e3t / @e3t </field> 49 <field field_ref="soce" name="vosaline" operation="instant" freq_op="12h" > @soce_e3t / @e3t </field> 50 <field field_ref="mldkz5" /> 51 <field field_ref="mldr10_1" /> 52 <field field_ref="empmr" name="wfo" /> 53 <field field_ref="qsr_oce" name="qsr_oce" /> 54 <field field_ref="qns_oce" name="qns_oce" /> 55 <field field_ref="qt_oce" name="qt_oce" /> 56 <field field_ref="saltflx" name="sfx" /> 57 <field field_ref="taum" name="taum" /> 58 <field field_ref="wspd" name="windsp" /> 59 <field field_ref="precip" name="precip" /> 60 </file> 61 62 <file id="file2" name_suffix="_grid_U" description="ocean U grid variables" > 63 <field field_ref="uoce" name="uo" operation="instant" freq_op="12h" > @uoce_e3u / @e3u </field> 64 <field field_ref="utau" name="tauuo" /> 65 </file> 66 67 <file id="file3" name_suffix="_grid_V" description="ocean V grid variables" > 68 <field field_ref="voce" name="vo" operation="instant" freq_op="12h" > @voce_e3v / @e3v </field> 69 <field field_ref="vtau" name="tauvo" /> 70 </file> 71 72 <file id="file4" name_suffix="_grid_W" description="ocean W grid variables" > 73 <field field_ref="e3w" /> 74 <field field_ref="avt" name="difvho" /> 75 </file> 76 77 </file_group> 78 79 80 <file_group id="1d" output_freq="1d" output_level="10" enabled=".TRUE."> <!-- 1d files --> 81 82 <file id="file60" name_suffix="_grid_T" description="ocean T grid variables" > 45 83 <field field_ref="e3t" /> 46 84 <field field_ref="toce" name="votemper" operation="instant" freq_op="1d" > @toce_e3t / @e3t </field> … … 58 96 </file> 59 97 60 <file id="file2" name_suffix="_grid_U" description="ocean U grid variables" >61 <field field_ref="uoce" name="uo" operation="instant" freq_op="1d" > @uoce_e3u / @e3u </field>62 <field field_ref="utau" name="tauuo" />63 </file>64 65 <file id="file3" name_suffix="_grid_V" description="ocean V grid variables" >66 <field field_ref="voce" name="vo" operation="instant" freq_op="1d" > @voce_e3v / @e3v </field>67 <field field_ref="vtau" name="tauvo" />68 </file>69 70 <file id="file4" name_suffix="_grid_W" description="ocean W grid variables" >71 <field field_ref="e3w" />72 <field field_ref="avt" name="difvho" />73 </file>74 75 </file_group>76 77 78 <file_group id="1d" output_freq="1d" output_level="10" enabled=".TRUE."> <!-- 1d files -->79 <file id="file60" name_suffix="_grid_T" description="ocean T grid variables" >80 <field field_ref="e3t" />81 <field field_ref="toce" name="votemper" operation="instant" freq_op="1d" > @toce_e3t / @e3t </field>82 <field field_ref="soce" name="vosaline" operation="instant" freq_op="1d" > @soce_e3t / @e3t </field>83 <field field_ref="mldkz5" />84 <field field_ref="mldr10_1" />85 <field field_ref="empmr" name="wfo" />86 <field field_ref="qsr_oce" name="qsr_oce" />87 <field field_ref="qns_oce" name="qns_oce" />88 <field field_ref="qt_oce" name="qt_oce" />89 <field field_ref="saltflx" name="sfx" />90 <field field_ref="taum" name="taum" />91 <field field_ref="wspd" name="windsp" />92 <field field_ref="precip" name="precip" />93 </file>94 98 </file_group> 95 99 -
NEMO/trunk/tests/C1D_ASICS/EXP00/namelist_cfg
r14229 r15023 5 5 !! namelists 2 - Surface boundary (namsbc, namsbc_flx, namsbc_blk, namsbc_cpl, 6 6 !! namsbc_sas, namtra_qsr, namsbc_rnf, 7 !! nam sbc_isf, namsbc_iscpl, namsbc_apr,7 !! namisf, namsbc_apr, 8 8 !! namsbc_ssr, namsbc_wave, namberg) 9 9 !! 3 - lateral boundary (namlbc, namagrif, nambdy, nambdy_tide) … … 26 26 !! namtsd data: temperature & salinity (default: OFF) 27 27 !! namcrs coarsened grid (for outputs and/or TOP) (ln_crs =T) 28 !! namc1d 1D configuration options ( "key_c1d")29 !! namc1d_dyndmp 1D newtonian damping applied on currents ( "key_c1d")30 !! namc1d_uvd 1D data (currents) ( "key_c1d")28 !! namc1d 1D configuration options (ln_c1d =T) 29 !! namc1d_dyndmp 1D newtonian damping applied on currents (ln_c1d =T) 30 !! namc1d_uvd 1D data (currents) (ln_c1d =T) 31 31 !!====================================================================== 32 32 ! … … 49 49 &namdom ! time and space domain 50 50 !----------------------------------------------------------------------- 51 ln_linssh = .true. ! =T linear free surface ==>> model level are fixed in time51 ln_linssh = .true. ! =T linear free surface ==>> model level are fixed in time 52 52 ! 53 rn_Dt = 360. ! time step for the dynamics and tracer 53 rn_Dt = 360. ! time step for the dynamics and tracer 54 ln_c1d = .true. ! Single column domain (1x1pt) (T => fill namc1d) 54 55 / 55 56 !----------------------------------------------------------------------- … … 79 80 / 80 81 !----------------------------------------------------------------------- 81 &namc1d ! 1D configuration options ("key_c1d" default: PAPA station) 82 !----------------------------------------------------------------------- 83 rn_lat1d = 30 ! Column latitude 84 rn_lon1d = 15 ! Column longitude 85 ln_c1d_locpt = .true. ! Localization of 1D config in a grid (T) or independant point (F) 86 / 87 !----------------------------------------------------------------------- 88 &namc1d_dyndmp ! U & V newtonian damping ("key_c1d" default: OFF) 82 &namc1d ! 1D configuration options (ln_c1d =T default: PAPA station) 83 !----------------------------------------------------------------------- 84 rn_lat1d = 30. ! Column latitude 85 rn_lon1d = 15. ! Column longitude 86 / 87 !----------------------------------------------------------------------- 88 &namc1d_dyndmp ! U & V newtonian damping (ln_c1d =T default: OFF) 89 89 !----------------------------------------------------------------------- 90 90 ln_dyndmp = .false. ! add a damping term (T) or not (F) 91 91 / 92 92 !----------------------------------------------------------------------- 93 &namc1d_uvd ! data: U & V currents ( "key_c1d"default: OFF)93 &namc1d_uvd ! data: U & V currents (ln_c1d =T default: OFF) 94 94 !----------------------------------------------------------------------- 95 95 ! ! =T read U-V fields for: … … 118 118 !! namsbc_rnf river runoffs (ln_rnf =T) 119 119 !! namsbc_apr Atmospheric Pressure (ln_apr_dyn =T) 120 !! namsbc_isf ice shelf melting/freezing (ln_isfcav =T : read (ln_read_cfg=T) or set or usr_def_zgr )121 !! namsbc_iscpl coupling option between land ice model and ocean (ln_isfcav =T)122 120 !! namsbc_wave external fields from wave model (ln_wave =T) 123 121 !! namberg iceberg floats (ln_icebergs=T) 122 !! namsbc_fwb freshwater-budget adjustment (nn_fwb > 0) 124 123 !!====================================================================== 125 124 ! -
NEMO/trunk/tests/C1D_ASICS/MY_SRC/usrdef_nam.F90
r14433 r15023 71 71 kk_cfg = 0 72 72 73 ! Global Domain size: C1D domain is 3 x 3grid-points x 75 or vertical levels74 kpi = 375 kpj = 373 ! Global Domain size: C1D domain is 1 x 1 grid-points x 75 or vertical levels 74 kpi = 1 75 kpj = 1 76 76 kpk = 75 77 77 ! ! Set the lateral boundary condition of the global domain 78 ldIperio = .TRUE. ; ldJperio = .true. ! C1D configuration : 3x3basin with cyclic Est-West and Norht-South condition78 ldIperio = .TRUE. ; ldJperio = .TRUE. ! C1D configuration : 1x1 basin with cyclic Est-West and Norht-South condition 79 79 ldNFold = .FALSE. ; cdNFtype = '-' 80 80 ! … … 89 89 WRITE(numout,*) ' z-partial-step coordinate flag ln_zps = ', ln_zps 90 90 WRITE(numout,*) ' s-coordinate flag ln_sco = ', ln_sco 91 WRITE(numout,*) ' C1D domain = 3 x 3 x75 grid-points '91 WRITE(numout,*) ' C1D domain = 1 x 1 x 75 grid-points ' 92 92 WRITE(numout,*) ' resulting global domain size : jpiglo = ', kpi 93 93 WRITE(numout,*) ' jpjglo = ', kpj 94 94 WRITE(numout,*) ' jpkglo = ', kpk 95 WRITE(numout,*) ' '95 WRITE(numout,*) ' ' 96 96 ENDIF 97 97 ! -
NEMO/trunk/tests/C1D_ASICS/cpp_C1D_ASICS.fcm
r14239 r15023 1 bld::tool::fppkeys key_ c1d key_qcokey_xios1 bld::tool::fppkeys key_linssh key_xios -
NEMO/trunk/tests/CANAL/EXPREF/namelist_cfg
r14843 r15023 12 12 !! namtsd data: temperature & salinity (default: OFF) 13 13 !! namcrs coarsened grid (for outputs and/or TOP) (ln_crs =T) 14 !! namc1d 1D configuration options ( "key_c1d")15 !! namc1d_dyndmp 1D newtonian damping applied on currents ( "key_c1d")16 !! namc1d_uvd 1D data (currents) ( "key_c1d")14 !! namc1d 1D configuration options (ln_c1d =T) 15 !! namc1d_dyndmp 1D newtonian damping applied on currents (ln_c1d =T) 16 !! namc1d_uvd 1D data (currents) (ln_c1d =T) 17 17 !!====================================================================== 18 18 ! -
NEMO/trunk/tests/CPL_OASIS/EXPREF/namelist_cfg
r14843 r15023 12 12 !! namtsd data: temperature & salinity (default: OFF) 13 13 !! namcrs coarsened grid (for outputs and/or TOP) (ln_crs =T) 14 !! namc1d 1D configuration options ( "key_c1d")15 !! namc1d_dyndmp 1D newtonian damping applied on currents ( "key_c1d")16 !! namc1d_uvd 1D data (currents) ( "key_c1d")14 !! namc1d 1D configuration options (ln_c1d =T) 15 !! namc1d_dyndmp 1D newtonian damping applied on currents (ln_c1d =T) 16 !! namc1d_uvd 1D data (currents) (ln_c1d =T) 17 17 !!====================================================================== 18 18 ! -
NEMO/trunk/tests/DIA_GPU/EXPREF/namelist_cfg
r14851 r15023 12 12 !! namtsd data: temperature & salinity (default: OFF) 13 13 !! namcrs coarsened grid (for outputs and/or TOP) (ln_crs =T) 14 !! namc1d 1D configuration options ( "key_c1d")15 !! namc1d_dyndmp 1D newtonian damping applied on currents ( "key_c1d")16 !! namc1d_uvd 1D data (currents) ( "key_c1d")14 !! namc1d 1D configuration options (ln_c1d =T) 15 !! namc1d_dyndmp 1D newtonian damping applied on currents (ln_c1d =T) 16 !! namc1d_uvd 1D data (currents) (ln_c1d =T) 17 17 !!====================================================================== 18 18 ! -
NEMO/trunk/tests/ICB/EXPREF/namelist_cfg
r14843 r15023 12 12 !! namtsd data: temperature & salinity (default: OFF) 13 13 !! namcrs coarsened grid (for outputs and/or TOP) (ln_crs =T) 14 !! namc1d 1D configuration options ( "key_c1d")15 !! namc1d_dyndmp 1D newtonian damping applied on currents ( "key_c1d")16 !! namc1d_uvd 1D data (currents) ( "key_c1d")14 !! namc1d 1D configuration options (ln_c1d =T) 15 !! namc1d_dyndmp 1D newtonian damping applied on currents (ln_c1d =T) 16 !! namc1d_uvd 1D data (currents) (ln_c1d =T) 17 17 !!====================================================================== 18 18 ! … … 68 68 / 69 69 !----------------------------------------------------------------------- 70 &namc1d ! 1D configuration options ( "key_c1d"default: PAPA station)71 !----------------------------------------------------------------------- 72 / 73 !----------------------------------------------------------------------- 74 &namc1d_dyndmp ! U & V newtonian damping ( "key_c1d"default: OFF)75 !----------------------------------------------------------------------- 76 / 77 !----------------------------------------------------------------------- 78 &namc1d_uvd ! data: U & V currents ( "key_c1d"default: OFF)70 &namc1d ! 1D configuration options (ln_c1d =T default: PAPA station) 71 !----------------------------------------------------------------------- 72 / 73 !----------------------------------------------------------------------- 74 &namc1d_dyndmp ! U & V newtonian damping (ln_c1d =T default: OFF) 75 !----------------------------------------------------------------------- 76 / 77 !----------------------------------------------------------------------- 78 &namc1d_uvd ! data: U & V currents (ln_c1d =T default: OFF) 79 79 !----------------------------------------------------------------------- 80 80 -
NEMO/trunk/tests/ICE_ADV1D/EXPREF/namelist_cfg
r14843 r15023 12 12 !! namtsd data: temperature & salinity (default: OFF) 13 13 !! namcrs coarsened grid (for outputs and/or TOP) (ln_crs =T) 14 !! namc1d 1D configuration options ( "key_c1d")15 !! namc1d_dyndmp 1D newtonian damping applied on currents ( "key_c1d")16 !! namc1d_uvd 1D data (currents) ( "key_c1d")14 !! namc1d 1D configuration options (ln_c1d =T) 15 !! namc1d_dyndmp 1D newtonian damping applied on currents (ln_c1d =T) 16 !! namc1d_uvd 1D data (currents) (ln_c1d =T) 17 17 !!====================================================================== 18 18 ! -
NEMO/trunk/tests/ICE_ADV1D/EXPREF/namelist_cfg_120pts
r14229 r15023 12 12 !! namtsd data: temperature & salinity (default: OFF) 13 13 !! namcrs coarsened grid (for outputs and/or TOP) (ln_crs =T) 14 !! namc1d 1D configuration options ( "key_c1d")15 !! namc1d_dyndmp 1D newtonian damping applied on currents ( "key_c1d")16 !! namc1d_uvd 1D data (currents) ( "key_c1d")14 !! namc1d 1D configuration options (ln_c1d =T) 15 !! namc1d_dyndmp 1D newtonian damping applied on currents (ln_c1d =T) 16 !! namc1d_uvd 1D data (currents) (ln_c1d =T) 17 17 !!====================================================================== 18 18 ! -
NEMO/trunk/tests/ICE_ADV1D/EXPREF/namelist_cfg_240pts
r14229 r15023 12 12 !! namtsd data: temperature & salinity (default: OFF) 13 13 !! namcrs coarsened grid (for outputs and/or TOP) (ln_crs =T) 14 !! namc1d 1D configuration options ( "key_c1d")15 !! namc1d_dyndmp 1D newtonian damping applied on currents ( "key_c1d")16 !! namc1d_uvd 1D data (currents) ( "key_c1d")14 !! namc1d 1D configuration options (ln_c1d =T) 15 !! namc1d_dyndmp 1D newtonian damping applied on currents (ln_c1d =T) 16 !! namc1d_uvd 1D data (currents) (ln_c1d =T) 17 17 !!====================================================================== 18 18 ! -
NEMO/trunk/tests/ICE_ADV1D/EXPREF/namelist_cfg_60pts
r14229 r15023 12 12 !! namtsd data: temperature & salinity (default: OFF) 13 13 !! namcrs coarsened grid (for outputs and/or TOP) (ln_crs =T) 14 !! namc1d 1D configuration options ( "key_c1d")15 !! namc1d_dyndmp 1D newtonian damping applied on currents ( "key_c1d")16 !! namc1d_uvd 1D data (currents) ( "key_c1d")14 !! namc1d 1D configuration options (ln_c1d =T) 15 !! namc1d_dyndmp 1D newtonian damping applied on currents (ln_c1d =T) 16 !! namc1d_uvd 1D data (currents) (ln_c1d =T) 17 17 !!====================================================================== 18 18 ! -
NEMO/trunk/tests/ICE_ADV2D/EXPREF/namelist_cfg
r14843 r15023 12 12 !! namtsd data: temperature & salinity (default: OFF) 13 13 !! namcrs coarsened grid (for outputs and/or TOP) (ln_crs =T) 14 !! namc1d 1D configuration options ( "key_c1d")15 !! namc1d_dyndmp 1D newtonian damping applied on currents ( "key_c1d")16 !! namc1d_uvd 1D data (currents) ( "key_c1d")14 !! namc1d 1D configuration options (ln_c1d =T) 15 !! namc1d_dyndmp 1D newtonian damping applied on currents (ln_c1d =T) 16 !! namc1d_uvd 1D data (currents) (ln_c1d =T) 17 17 !!====================================================================== 18 18 ! -
NEMO/trunk/tests/ICE_AGRIF/EXPREF/1_namelist_cfg
r14843 r15023 12 12 !! namtsd data: temperature & salinity (default: OFF) 13 13 !! namcrs coarsened grid (for outputs and/or TOP) (ln_crs =T) 14 !! namc1d 1D configuration options ( "key_c1d")15 !! namc1d_dyndmp 1D newtonian damping applied on currents ( "key_c1d")16 !! namc1d_uvd 1D data (currents) ( "key_c1d")14 !! namc1d 1D configuration options (ln_c1d =T) 15 !! namc1d_dyndmp 1D newtonian damping applied on currents (ln_c1d =T) 16 !! namc1d_uvd 1D data (currents) (ln_c1d =T) 17 17 !!====================================================================== 18 18 ! -
NEMO/trunk/tests/ICE_AGRIF/EXPREF/namelist_cfg
r14843 r15023 12 12 !! namtsd data: temperature & salinity (default: OFF) 13 13 !! namcrs coarsened grid (for outputs and/or TOP) (ln_crs =T) 14 !! namc1d 1D configuration options ( "key_c1d")15 !! namc1d_dyndmp 1D newtonian damping applied on currents ( "key_c1d")16 !! namc1d_uvd 1D data (currents) ( "key_c1d")14 !! namc1d 1D configuration options (ln_c1d =T) 15 !! namc1d_dyndmp 1D newtonian damping applied on currents (ln_c1d =T) 16 !! namc1d_uvd 1D data (currents) (ln_c1d =T) 17 17 !!====================================================================== 18 18 ! -
NEMO/trunk/tests/ICE_RHEO/EXPREF/namelist_cfg
r14843 r15023 12 12 !! namtsd data: temperature & salinity (default: OFF) 13 13 !! namcrs coarsened grid (for outputs and/or TOP) (ln_crs =T) 14 !! namc1d 1D configuration options ( "key_c1d")15 !! namc1d_dyndmp 1D newtonian damping applied on currents ( "key_c1d")16 !! namc1d_uvd 1D data (currents) ( "key_c1d")14 !! namc1d 1D configuration options (ln_c1d =T) 15 !! namc1d_dyndmp 1D newtonian damping applied on currents (ln_c1d =T) 16 !! namc1d_uvd 1D data (currents) (ln_c1d =T) 17 17 !!====================================================================== 18 18 ! -
NEMO/trunk/tests/ISOMIP+/EXPREF/namelist_cfg
r14843 r15023 27 27 !! namtsd data: temperature & salinity (default: OFF) 28 28 !! namcrs coarsened grid (for outputs and/or TOP) (ln_crs =T) 29 !! namc1d 1D configuration options ( "key_c1d")30 !! namc1d_dyndmp 1D newtonian damping applied on currents ( "key_c1d")31 !! namc1d_uvd 1D data (currents) ( "key_c1d")29 !! namc1d 1D configuration options (ln_c1d =T) 30 !! namc1d_dyndmp 1D newtonian damping applied on currents (ln_c1d =T) 31 !! namc1d_uvd 1D data (currents) (ln_c1d =T) 32 32 !!====================================================================== 33 33 ! … … 81 81 / 82 82 !----------------------------------------------------------------------- 83 &namc1d ! 1D configuration options ( "key_c1d"default: PAPA station)84 !----------------------------------------------------------------------- 85 / 86 !----------------------------------------------------------------------- 87 &namc1d_dyndmp ! U & V newtonian damping ( "key_c1d"default: OFF)88 !----------------------------------------------------------------------- 89 / 90 !----------------------------------------------------------------------- 91 &namc1d_uvd ! data: U & V currents ( "key_c1d"default: OFF)83 &namc1d ! 1D configuration options (ln_c1d =T default: PAPA station) 84 !----------------------------------------------------------------------- 85 / 86 !----------------------------------------------------------------------- 87 &namc1d_dyndmp ! U & V newtonian damping (ln_c1d =T default: OFF) 88 !----------------------------------------------------------------------- 89 / 90 !----------------------------------------------------------------------- 91 &namc1d_uvd ! data: U & V currents (ln_c1d =T default: OFF) 92 92 !----------------------------------------------------------------------- 93 93 -
NEMO/trunk/tests/ISOMIP+/MY_SRC/istate.F90
r14995 r15023 74 74 IF(lwp) WRITE(numout,*) '~~~~~~~~~~~' 75 75 76 CALL dta_tsd_init ! Initialisation of T & S input data 77 78 ! IF( lk_c1d ) CALL dta_uvd_init ! Initialization of U & V input data 76 CALL dta_tsd_init ! Initialisation of T & S input data 77 IF( ln_c1d) CALL dta_uvd_init ! Initialisation of U & V input data (c1d only) 79 78 80 79 rhd (:,:,: ) = 0._wp ; rhop (:,:,: ) = 0._wp ! set one for all to 0 at level jpk … … 113 112 IF( ln_tsd_init ) THEN 114 113 CALL dta_tsd( nit000, 'ini', ts(:,:,:,:,Kbb) ) ! read 3D T and S data at nit000 115 ! 114 ENDIF 115 ! 116 IF( ln_uvd_init .AND. ln_c1d ) THEN 117 CALL dta_uvd( nit000, Kbb, uu(:,:,:,Kbb), vv(:,:,:,Kbb) ) ! read 3D U and V data at nit000 118 ELSE 116 119 uu (:,:,:,Kbb) = 0._wp ! set the ocean at rest 117 120 vv (:,:,:,Kbb) = 0._wp 121 ENDIF 118 122 ! 119 ELSE ! user defined initial T and S 123 ! 124 IF( .NOT. ln_tsd_init .AND. .NOT. ln_uvd_init ) THEN 120 125 DO jk = 1, jpk 121 126 zgdept(:,:,jk) = gdept(:,:,jk,Kbb) … … 127 132 vv (:,:,:,Kmm) = vv (:,:,:,Kbb) 128 133 129 !130 !!gm ==>>> to be moved in usrdef_istate of C1D case131 IF ( ln_uvd_init .AND. lk_c1d ) THEN ! read 3D U and V data at nit000132 ALLOCATE( zuvd(jpi,jpj,jpk,2) )133 CALL dta_uvd( nit000, Kbb, zuvd )134 uu(:,:,:,Kbb) = zuvd(:,:,:,1) ; uu(:,:,:,Kmm) = uu(:,:,:,Kbb)135 vv(:,:,:,Kbb) = zuvd(:,:,:,2) ; vv(:,:,:,Kmm) = vv(:,:,:,Kbb)136 DEALLOCATE( zuvd )137 ENDIF138 !139 !140 134 ENDIF 141 135 #if defined key_agrif -
NEMO/trunk/tests/ISOMIP/EXPREF/namelist_cfg
r14843 r15023 12 12 !! namtsd data: temperature & salinity (default: OFF) 13 13 !! namcrs coarsened grid (for outputs and/or TOP) (ln_crs =T) 14 !! namc1d 1D configuration options ( "key_c1d")15 !! namc1d_dyndmp 1D newtonian damping applied on currents ( "key_c1d")16 !! namc1d_uvd 1D data (currents) ( "key_c1d")14 !! namc1d 1D configuration options (ln_c1d =T) 15 !! namc1d_dyndmp 1D newtonian damping applied on currents (ln_c1d =T) 16 !! namc1d_uvd 1D data (currents) (ln_c1d =T) 17 17 !!====================================================================== 18 18 ! … … 68 68 / 69 69 !----------------------------------------------------------------------- 70 &namc1d ! 1D configuration options ( "key_c1d"default: PAPA station)71 !----------------------------------------------------------------------- 72 / 73 !----------------------------------------------------------------------- 74 &namc1d_dyndmp ! U & V newtonian damping ( "key_c1d"default: OFF)75 !----------------------------------------------------------------------- 76 / 77 !----------------------------------------------------------------------- 78 &namc1d_uvd ! data: U & V currents ( "key_c1d"default: OFF)70 &namc1d ! 1D configuration options (ln_c1d =T default: PAPA station) 71 !----------------------------------------------------------------------- 72 / 73 !----------------------------------------------------------------------- 74 &namc1d_dyndmp ! U & V newtonian damping (ln_c1d =T default: OFF) 75 !----------------------------------------------------------------------- 76 / 77 !----------------------------------------------------------------------- 78 &namc1d_uvd ! data: U & V currents (ln_c1d =T default: OFF) 79 79 !----------------------------------------------------------------------- 80 80 -
NEMO/trunk/tests/LOCK_EXCHANGE/EXPREF/namelist_FCT2_flux_ubs_cfg
r14843 r15023 12 12 !! namtsd data: temperature & salinity (default: OFF) 13 13 !! namcrs coarsened grid (for outputs and/or TOP) (ln_crs =T) 14 !! namc1d 1D configuration options ( "key_c1d")15 !! namc1d_dyndmp 1D newtonian damping applied on currents ( "key_c1d")16 !! namc1d_uvd 1D data (currents) ( "key_c1d")14 !! namc1d 1D configuration options (ln_c1d =T) 15 !! namc1d_dyndmp 1D newtonian damping applied on currents (ln_c1d =T) 16 !! namc1d_uvd 1D data (currents) (ln_c1d =T) 17 17 !!====================================================================== 18 18 ! -
NEMO/trunk/tests/OVERFLOW/EXPREF/namelist_zps_FCT4_flux_ubs_cfg
r14843 r15023 12 12 !! namtsd data: temperature & salinity (default: OFF) 13 13 !! namcrs coarsened grid (for outputs and/or TOP) (ln_crs =T) 14 !! namc1d 1D configuration options ( "key_c1d")15 !! namc1d_dyndmp 1D newtonian damping applied on currents ( "key_c1d")16 !! namc1d_uvd 1D data (currents) ( "key_c1d")14 !! namc1d 1D configuration options (ln_c1d =T) 15 !! namc1d_dyndmp 1D newtonian damping applied on currents (ln_c1d =T) 16 !! namc1d_uvd 1D data (currents) (ln_c1d =T) 17 17 !!====================================================================== 18 18 ! -
NEMO/trunk/tests/STATION_ASF/EXPREF/ERA5/oce+ice/namelist_ecmwf-an05_cfg
r14229 r15023 12 12 !! namtsd data: temperature & salinity (default: OFF) 13 13 !! namcrs coarsened grid (for outputs and/or TOP) (ln_crs =T) 14 !! namc1d 1D configuration options ( "key_c1d")15 !! namc1d_dyndmp 1D newtonian damping applied on currents ( "key_c1d")16 !! namc1d_uvd 1D data (currents) ( "key_c1d")14 !! namc1d 1D configuration options (ln_c1d =T) 15 !! namc1d_dyndmp 1D newtonian damping applied on currents (ln_c1d =T) 16 !! namc1d_uvd 1D data (currents) (ln_c1d =T) 17 17 !!====================================================================== 18 18 ! … … 53 53 / 54 54 !----------------------------------------------------------------------- 55 &namc1d_dyndmp ! U & V newtonian damping ( "key_c1d"default: OFF)55 &namc1d_dyndmp ! U & V newtonian damping (ln_c1d =T default: OFF) 56 56 !----------------------------------------------------------------------- 57 57 ln_dyndmp = .false. ! add a damping term (T) or not (F) 58 58 / 59 59 !----------------------------------------------------------------------- 60 &namc1d_uvd ! data: U & V currents ( "key_c1d"default: OFF)60 &namc1d_uvd ! data: U & V currents (ln_c1d =T default: OFF) 61 61 !----------------------------------------------------------------------- 62 62 ! ! =T read U-V fields for: -
NEMO/trunk/tests/STATION_ASF/EXPREF/ERA5/oce+ice/namelist_ecmwf-cstc_cfg
r14229 r15023 12 12 !! namtsd data: temperature & salinity (default: OFF) 13 13 !! namcrs coarsened grid (for outputs and/or TOP) (ln_crs =T) 14 !! namc1d 1D configuration options ( "key_c1d")15 !! namc1d_dyndmp 1D newtonian damping applied on currents ( "key_c1d")16 !! namc1d_uvd 1D data (currents) ( "key_c1d")14 !! namc1d 1D configuration options (ln_c1d =T) 15 !! namc1d_dyndmp 1D newtonian damping applied on currents (ln_c1d =T) 16 !! namc1d_uvd 1D data (currents) (ln_c1d =T) 17 17 !!====================================================================== 18 18 ! … … 53 53 / 54 54 !----------------------------------------------------------------------- 55 &namc1d_dyndmp ! U & V newtonian damping ( "key_c1d"default: OFF)55 &namc1d_dyndmp ! U & V newtonian damping (ln_c1d =T default: OFF) 56 56 !----------------------------------------------------------------------- 57 57 ln_dyndmp = .false. ! add a damping term (T) or not (F) 58 58 / 59 59 !----------------------------------------------------------------------- 60 &namc1d_uvd ! data: U & V currents ( "key_c1d"default: OFF)60 &namc1d_uvd ! data: U & V currents (ln_c1d =T default: OFF) 61 61 !----------------------------------------------------------------------- 62 62 ! ! =T read U-V fields for: -
NEMO/trunk/tests/STATION_ASF/EXPREF/ERA5/oce+ice/namelist_ecmwf-lg15_cfg
r14229 r15023 12 12 !! namtsd data: temperature & salinity (default: OFF) 13 13 !! namcrs coarsened grid (for outputs and/or TOP) (ln_crs =T) 14 !! namc1d 1D configuration options ( "key_c1d")15 !! namc1d_dyndmp 1D newtonian damping applied on currents ( "key_c1d")16 !! namc1d_uvd 1D data (currents) ( "key_c1d")14 !! namc1d 1D configuration options (ln_c1d =T) 15 !! namc1d_dyndmp 1D newtonian damping applied on currents (ln_c1d =T) 16 !! namc1d_uvd 1D data (currents) (ln_c1d =T) 17 17 !!====================================================================== 18 18 ! … … 53 53 / 54 54 !----------------------------------------------------------------------- 55 &namc1d_dyndmp ! U & V newtonian damping ( "key_c1d"default: OFF)55 &namc1d_dyndmp ! U & V newtonian damping (ln_c1d =T default: OFF) 56 56 !----------------------------------------------------------------------- 57 57 ln_dyndmp = .false. ! add a damping term (T) or not (F) 58 58 / 59 59 !----------------------------------------------------------------------- 60 &namc1d_uvd ! data: U & V currents ( "key_c1d"default: OFF)60 &namc1d_uvd ! data: U & V currents (ln_c1d =T default: OFF) 61 61 !----------------------------------------------------------------------- 62 62 ! ! =T read U-V fields for: -
NEMO/trunk/tests/STATION_ASF/EXPREF/ERA5/oce+ice/namelist_ecmwf-lu12_cfg
r14229 r15023 12 12 !! namtsd data: temperature & salinity (default: OFF) 13 13 !! namcrs coarsened grid (for outputs and/or TOP) (ln_crs =T) 14 !! namc1d 1D configuration options ( "key_c1d")15 !! namc1d_dyndmp 1D newtonian damping applied on currents ( "key_c1d")16 !! namc1d_uvd 1D data (currents) ( "key_c1d")14 !! namc1d 1D configuration options (ln_c1d =T) 15 !! namc1d_dyndmp 1D newtonian damping applied on currents (ln_c1d =T) 16 !! namc1d_uvd 1D data (currents) (ln_c1d =T) 17 17 !!====================================================================== 18 18 ! … … 53 53 / 54 54 !----------------------------------------------------------------------- 55 &namc1d_dyndmp ! U & V newtonian damping ( "key_c1d"default: OFF)55 &namc1d_dyndmp ! U & V newtonian damping (ln_c1d =T default: OFF) 56 56 !----------------------------------------------------------------------- 57 57 ln_dyndmp = .false. ! add a damping term (T) or not (F) 58 58 / 59 59 !----------------------------------------------------------------------- 60 &namc1d_uvd ! data: U & V currents ( "key_c1d"default: OFF)60 &namc1d_uvd ! data: U & V currents (ln_c1d =T default: OFF) 61 61 !----------------------------------------------------------------------- 62 62 ! ! =T read U-V fields for: -
NEMO/trunk/tests/STATION_ASF/EXPREF/ERA5/oce/namelist_andreas_cfg
r14229 r15023 12 12 !! namtsd data: temperature & salinity (default: OFF) 13 13 !! namcrs coarsened grid (for outputs and/or TOP) (ln_crs =T) 14 !! namc1d 1D configuration options ( "key_c1d")15 !! namc1d_dyndmp 1D newtonian damping applied on currents ( "key_c1d")16 !! namc1d_uvd 1D data (currents) ( "key_c1d")14 !! namc1d 1D configuration options (ln_c1d =T) 15 !! namc1d_dyndmp 1D newtonian damping applied on currents (ln_c1d =T) 16 !! namc1d_uvd 1D data (currents) (ln_c1d =T) 17 17 !!====================================================================== 18 18 ! … … 53 53 / 54 54 !----------------------------------------------------------------------- 55 &namc1d_dyndmp ! U & V newtonian damping ( "key_c1d"default: OFF)55 &namc1d_dyndmp ! U & V newtonian damping (ln_c1d =T default: OFF) 56 56 !----------------------------------------------------------------------- 57 57 ln_dyndmp = .false. ! add a damping term (T) or not (F) 58 58 / 59 59 !----------------------------------------------------------------------- 60 &namc1d_uvd ! data: U & V currents ( "key_c1d"default: OFF)60 &namc1d_uvd ! data: U & V currents (ln_c1d =T default: OFF) 61 61 !----------------------------------------------------------------------- 62 62 ! ! =T read U-V fields for: -
NEMO/trunk/tests/STATION_ASF/EXPREF/ERA5/oce/namelist_coare3p6_cfg
r14229 r15023 12 12 !! namtsd data: temperature & salinity (default: OFF) 13 13 !! namcrs coarsened grid (for outputs and/or TOP) (ln_crs =T) 14 !! namc1d 1D configuration options ( "key_c1d")15 !! namc1d_dyndmp 1D newtonian damping applied on currents ( "key_c1d")16 !! namc1d_uvd 1D data (currents) ( "key_c1d")14 !! namc1d 1D configuration options (ln_c1d =T) 15 !! namc1d_dyndmp 1D newtonian damping applied on currents (ln_c1d =T) 16 !! namc1d_uvd 1D data (currents) (ln_c1d =T) 17 17 !!====================================================================== 18 18 ! … … 53 53 / 54 54 !----------------------------------------------------------------------- 55 &namc1d_dyndmp ! U & V newtonian damping ( "key_c1d"default: OFF)55 &namc1d_dyndmp ! U & V newtonian damping (ln_c1d =T default: OFF) 56 56 !----------------------------------------------------------------------- 57 57 ln_dyndmp = .false. ! add a damping term (T) or not (F) 58 58 / 59 59 !----------------------------------------------------------------------- 60 &namc1d_uvd ! data: U & V currents ( "key_c1d"default: OFF)60 &namc1d_uvd ! data: U & V currents (ln_c1d =T default: OFF) 61 61 !----------------------------------------------------------------------- 62 62 ! ! =T read U-V fields for: -
NEMO/trunk/tests/STATION_ASF/EXPREF/ERA5/oce/namelist_ecmwf_cfg
r14229 r15023 12 12 !! namtsd data: temperature & salinity (default: OFF) 13 13 !! namcrs coarsened grid (for outputs and/or TOP) (ln_crs =T) 14 !! namc1d 1D configuration options ( "key_c1d")15 !! namc1d_dyndmp 1D newtonian damping applied on currents ( "key_c1d")16 !! namc1d_uvd 1D data (currents) ( "key_c1d")14 !! namc1d 1D configuration options (ln_c1d =T) 15 !! namc1d_dyndmp 1D newtonian damping applied on currents (ln_c1d =T) 16 !! namc1d_uvd 1D data (currents) (ln_c1d =T) 17 17 !!====================================================================== 18 18 ! … … 53 53 / 54 54 !----------------------------------------------------------------------- 55 &namc1d_dyndmp ! U & V newtonian damping ( "key_c1d"default: OFF)55 &namc1d_dyndmp ! U & V newtonian damping (ln_c1d =T default: OFF) 56 56 !----------------------------------------------------------------------- 57 57 ln_dyndmp = .false. ! add a damping term (T) or not (F) 58 58 / 59 59 !----------------------------------------------------------------------- 60 &namc1d_uvd ! data: U & V currents ( "key_c1d"default: OFF)60 &namc1d_uvd ! data: U & V currents (ln_c1d =T default: OFF) 61 61 !----------------------------------------------------------------------- 62 62 ! ! =T read U-V fields for: -
NEMO/trunk/tests/STATION_ASF/EXPREF/ERA5/oce/namelist_ncar_cfg
r14229 r15023 12 12 !! namtsd data: temperature & salinity (default: OFF) 13 13 !! namcrs coarsened grid (for outputs and/or TOP) (ln_crs =T) 14 !! namc1d 1D configuration options ( "key_c1d")15 !! namc1d_dyndmp 1D newtonian damping applied on currents ( "key_c1d")16 !! namc1d_uvd 1D data (currents) ( "key_c1d")14 !! namc1d 1D configuration options (ln_c1d =T) 15 !! namc1d_dyndmp 1D newtonian damping applied on currents (ln_c1d =T) 16 !! namc1d_uvd 1D data (currents) (ln_c1d =T) 17 17 !!====================================================================== 18 18 ! … … 53 53 / 54 54 !----------------------------------------------------------------------- 55 &namc1d_dyndmp ! U & V newtonian damping ( "key_c1d"default: OFF)55 &namc1d_dyndmp ! U & V newtonian damping (ln_c1d =T default: OFF) 56 56 !----------------------------------------------------------------------- 57 57 ln_dyndmp = .false. ! add a damping term (T) or not (F) 58 58 / 59 59 !----------------------------------------------------------------------- 60 &namc1d_uvd ! data: U & V currents ( "key_c1d"default: OFF)60 &namc1d_uvd ! data: U & V currents (ln_c1d =T default: OFF) 61 61 !----------------------------------------------------------------------- 62 62 ! ! =T read U-V fields for: -
NEMO/trunk/tests/STATION_ASF/EXPREF/PAPA/oce/namelist_andreas_cfg
r14229 r15023 12 12 !! namtsd data: temperature & salinity (default: OFF) 13 13 !! namcrs coarsened grid (for outputs and/or TOP) (ln_crs =T) 14 !! namc1d 1D configuration options ( "key_c1d")15 !! namc1d_dyndmp 1D newtonian damping applied on currents ( "key_c1d")16 !! namc1d_uvd 1D data (currents) ( "key_c1d")14 !! namc1d 1D configuration options (ln_c1d =T) 15 !! namc1d_dyndmp 1D newtonian damping applied on currents (ln_c1d =T) 16 !! namc1d_uvd 1D data (currents) (ln_c1d =T) 17 17 !!====================================================================== 18 18 ! … … 47 47 / 48 48 !----------------------------------------------------------------------- 49 &namc1d ! 1D configuration options / STATION_ASF ( "key_c1d"default: PAPA station)49 &namc1d ! 1D configuration options / STATION_ASF (ln_c1d =T default: PAPA station) 50 50 !----------------------------------------------------------------------- 51 51 rn_lat1d = 50.1 ! Column latitude [PAPA station] … … 53 53 / 54 54 !----------------------------------------------------------------------- 55 &namc1d_dyndmp ! U & V newtonian damping ( "key_c1d"default: OFF)55 &namc1d_dyndmp ! U & V newtonian damping (ln_c1d =T default: OFF) 56 56 !----------------------------------------------------------------------- 57 57 ln_dyndmp = .false. ! add a damping term (T) or not (F) 58 58 / 59 59 !----------------------------------------------------------------------- 60 &namc1d_uvd ! data: U & V currents ( "key_c1d"default: OFF)60 &namc1d_uvd ! data: U & V currents (ln_c1d =T default: OFF) 61 61 !----------------------------------------------------------------------- 62 62 ! ! =T read U-V fields for: -
NEMO/trunk/tests/STATION_ASF/EXPREF/PAPA/oce/namelist_coare3p6_cfg
r14229 r15023 12 12 !! namtsd data: temperature & salinity (default: OFF) 13 13 !! namcrs coarsened grid (for outputs and/or TOP) (ln_crs =T) 14 !! namc1d 1D configuration options ( "key_c1d")15 !! namc1d_dyndmp 1D newtonian damping applied on currents ( "key_c1d")16 !! namc1d_uvd 1D data (currents) ( "key_c1d")14 !! namc1d 1D configuration options (ln_c1d =T) 15 !! namc1d_dyndmp 1D newtonian damping applied on currents (ln_c1d =T) 16 !! namc1d_uvd 1D data (currents) (ln_c1d =T) 17 17 !!====================================================================== 18 18 ! … … 47 47 / 48 48 !----------------------------------------------------------------------- 49 &namc1d ! 1D configuration options / STATION_ASF ( "key_c1d"default: PAPA station)49 &namc1d ! 1D configuration options / STATION_ASF (ln_c1d =T default: PAPA station) 50 50 !----------------------------------------------------------------------- 51 51 rn_lat1d = 50.1 ! Column latitude [PAPA station] … … 53 53 / 54 54 !----------------------------------------------------------------------- 55 &namc1d_dyndmp ! U & V newtonian damping ( "key_c1d"default: OFF)55 &namc1d_dyndmp ! U & V newtonian damping (ln_c1d =T default: OFF) 56 56 !----------------------------------------------------------------------- 57 57 ln_dyndmp = .false. ! add a damping term (T) or not (F) 58 58 / 59 59 !----------------------------------------------------------------------- 60 &namc1d_uvd ! data: U & V currents ( "key_c1d"default: OFF)60 &namc1d_uvd ! data: U & V currents (ln_c1d =T default: OFF) 61 61 !----------------------------------------------------------------------- 62 62 ! ! =T read U-V fields for: -
NEMO/trunk/tests/STATION_ASF/EXPREF/PAPA/oce/namelist_ecmwf_cfg
r14229 r15023 12 12 !! namtsd data: temperature & salinity (default: OFF) 13 13 !! namcrs coarsened grid (for outputs and/or TOP) (ln_crs =T) 14 !! namc1d 1D configuration options ( "key_c1d")15 !! namc1d_dyndmp 1D newtonian damping applied on currents ( "key_c1d")16 !! namc1d_uvd 1D data (currents) ( "key_c1d")14 !! namc1d 1D configuration options (ln_c1d =T) 15 !! namc1d_dyndmp 1D newtonian damping applied on currents (ln_c1d =T) 16 !! namc1d_uvd 1D data (currents) (ln_c1d =T) 17 17 !!====================================================================== 18 18 ! … … 47 47 / 48 48 !----------------------------------------------------------------------- 49 &namc1d ! 1D configuration options / STATION_ASF ( "key_c1d"default: PAPA station)49 &namc1d ! 1D configuration options / STATION_ASF (ln_c1d =T default: PAPA station) 50 50 !----------------------------------------------------------------------- 51 51 rn_lat1d = 50.1 ! Column latitude [PAPA station] … … 53 53 / 54 54 !----------------------------------------------------------------------- 55 &namc1d_dyndmp ! U & V newtonian damping ( "key_c1d"default: OFF)55 &namc1d_dyndmp ! U & V newtonian damping (ln_c1d =T default: OFF) 56 56 !----------------------------------------------------------------------- 57 57 ln_dyndmp = .false. ! add a damping term (T) or not (F) 58 58 / 59 59 !----------------------------------------------------------------------- 60 &namc1d_uvd ! data: U & V currents ( "key_c1d"default: OFF)60 &namc1d_uvd ! data: U & V currents (ln_c1d =T default: OFF) 61 61 !----------------------------------------------------------------------- 62 62 ! ! =T read U-V fields for: -
NEMO/trunk/tests/STATION_ASF/EXPREF/PAPA/oce/namelist_ncar_cfg
r14229 r15023 12 12 !! namtsd data: temperature & salinity (default: OFF) 13 13 !! namcrs coarsened grid (for outputs and/or TOP) (ln_crs =T) 14 !! namc1d 1D configuration options ( "key_c1d")15 !! namc1d_dyndmp 1D newtonian damping applied on currents ( "key_c1d")16 !! namc1d_uvd 1D data (currents) ( "key_c1d")14 !! namc1d 1D configuration options (ln_c1d =T) 15 !! namc1d_dyndmp 1D newtonian damping applied on currents (ln_c1d =T) 16 !! namc1d_uvd 1D data (currents) (ln_c1d =T) 17 17 !!====================================================================== 18 18 ! … … 47 47 / 48 48 !----------------------------------------------------------------------- 49 &namc1d ! 1D configuration options / STATION_ASF ( "key_c1d"default: PAPA station)49 &namc1d ! 1D configuration options / STATION_ASF (ln_c1d =T default: PAPA station) 50 50 !----------------------------------------------------------------------- 51 51 rn_lat1d = 50.1 ! Column latitude [PAPA station] … … 53 53 / 54 54 !----------------------------------------------------------------------- 55 &namc1d_dyndmp ! U & V newtonian damping ( "key_c1d"default: OFF)55 &namc1d_dyndmp ! U & V newtonian damping (ln_c1d =T default: OFF) 56 56 !----------------------------------------------------------------------- 57 57 ln_dyndmp = .false. ! add a damping term (T) or not (F) 58 58 / 59 59 !----------------------------------------------------------------------- 60 &namc1d_uvd ! data: U & V currents ( "key_c1d"default: OFF)60 &namc1d_uvd ! data: U & V currents (ln_c1d =T default: OFF) 61 61 !----------------------------------------------------------------------- 62 62 ! ! =T read U-V fields for: -
NEMO/trunk/tests/STATION_ASF/MY_SRC/nemogcm.F90
r14433 r15023 273 273 CALL phy_cst ! Physical constants 274 274 CALL eos_init ! Equation of state 275 IF( l k_c1d ) CALL c1d_init ! 1D column configuration275 IF( ln_c1d ) CALL c1d_init ! 1D column configuration 276 276 CALL dom_init( Nbb, Nnn, Naa ) ! Domain 277 277 IF( sn_cfctl%l_prtctl ) & -
NEMO/trunk/tests/STATION_ASF/MY_SRC/sbcssm.F90
r14072 r15023 12 12 !!---------------------------------------------------------------------- 13 13 USE oce ! ocean dynamics and tracers variables 14 USE c1d ! 1D configuration: l k_c1d14 USE c1d ! 1D configuration: ln_c1d 15 15 USE dom_oce ! ocean domain: variables 16 16 USE sbc_oce ! surface module: variables -
NEMO/trunk/tests/STATION_ASF/SANITY_CHECK/IDEALIZED/oce/namelist_andreas_cfg
r14229 r15023 16 16 !! namtsd data: temperature & salinity (default: OFF) 17 17 !! namcrs coarsened grid (for outputs and/or TOP) (ln_crs =T) 18 !! namc1d 1D configuration options ( "key_c1d")19 !! namc1d_dyndmp 1D newtonian damping applied on currents ( "key_c1d")20 !! namc1d_uvd 1D data (currents) ( "key_c1d")18 !! namc1d 1D configuration options (ln_c1d =T) 19 !! namc1d_dyndmp 1D newtonian damping applied on currents (ln_c1d =T) 20 !! namc1d_uvd 1D data (currents) (ln_c1d =T) 21 21 !!====================================================================== 22 22 ! … … 51 51 / 52 52 !----------------------------------------------------------------------- 53 &namc1d ! 1D configuration options / STATION_ASF ( "key_c1d"default: PAPA station)53 &namc1d ! 1D configuration options / STATION_ASF (ln_c1d =T default: PAPA station) 54 54 !----------------------------------------------------------------------- 55 55 rn_lat1d = 50.1 ! Column latitude [PAPA station] … … 57 57 / 58 58 !----------------------------------------------------------------------- 59 &namc1d_dyndmp ! U & V newtonian damping ( "key_c1d"default: OFF)59 &namc1d_dyndmp ! U & V newtonian damping (ln_c1d =T default: OFF) 60 60 !----------------------------------------------------------------------- 61 61 ln_dyndmp = .false. ! add a damping term (T) or not (F) 62 62 / 63 63 !----------------------------------------------------------------------- 64 &namc1d_uvd ! data: U & V currents ( "key_c1d"default: OFF)64 &namc1d_uvd ! data: U & V currents (ln_c1d =T default: OFF) 65 65 !----------------------------------------------------------------------- 66 66 ! ! =T read U-V fields for: -
NEMO/trunk/tests/STATION_ASF/SANITY_CHECK/IDEALIZED/oce/namelist_coare3p0_cfg
r14229 r15023 16 16 !! namtsd data: temperature & salinity (default: OFF) 17 17 !! namcrs coarsened grid (for outputs and/or TOP) (ln_crs =T) 18 !! namc1d 1D configuration options ( "key_c1d")19 !! namc1d_dyndmp 1D newtonian damping applied on currents ( "key_c1d")20 !! namc1d_uvd 1D data (currents) ( "key_c1d")18 !! namc1d 1D configuration options (ln_c1d =T) 19 !! namc1d_dyndmp 1D newtonian damping applied on currents (ln_c1d =T) 20 !! namc1d_uvd 1D data (currents) (ln_c1d =T) 21 21 !!====================================================================== 22 22 ! … … 51 51 / 52 52 !----------------------------------------------------------------------- 53 &namc1d ! 1D configuration options / STATION_ASF ( "key_c1d"default: PAPA station)53 &namc1d ! 1D configuration options / STATION_ASF (ln_c1d =T default: PAPA station) 54 54 !----------------------------------------------------------------------- 55 55 rn_lat1d = 50.1 ! Column latitude [PAPA station] … … 57 57 / 58 58 !----------------------------------------------------------------------- 59 &namc1d_dyndmp ! U & V newtonian damping ( "key_c1d"default: OFF)59 &namc1d_dyndmp ! U & V newtonian damping (ln_c1d =T default: OFF) 60 60 !----------------------------------------------------------------------- 61 61 ln_dyndmp = .false. ! add a damping term (T) or not (F) 62 62 / 63 63 !----------------------------------------------------------------------- 64 &namc1d_uvd ! data: U & V currents ( "key_c1d"default: OFF)64 &namc1d_uvd ! data: U & V currents (ln_c1d =T default: OFF) 65 65 !----------------------------------------------------------------------- 66 66 ! ! =T read U-V fields for: -
NEMO/trunk/tests/STATION_ASF/SANITY_CHECK/IDEALIZED/oce/namelist_coare3p6_cfg
r14229 r15023 16 16 !! namtsd data: temperature & salinity (default: OFF) 17 17 !! namcrs coarsened grid (for outputs and/or TOP) (ln_crs =T) 18 !! namc1d 1D configuration options ( "key_c1d")19 !! namc1d_dyndmp 1D newtonian damping applied on currents ( "key_c1d")20 !! namc1d_uvd 1D data (currents) ( "key_c1d")18 !! namc1d 1D configuration options (ln_c1d =T) 19 !! namc1d_dyndmp 1D newtonian damping applied on currents (ln_c1d =T) 20 !! namc1d_uvd 1D data (currents) (ln_c1d =T) 21 21 !!====================================================================== 22 22 ! … … 51 51 / 52 52 !----------------------------------------------------------------------- 53 &namc1d ! 1D configuration options / STATION_ASF ( "key_c1d"default: PAPA station)53 &namc1d ! 1D configuration options / STATION_ASF (ln_c1d =T default: PAPA station) 54 54 !----------------------------------------------------------------------- 55 55 rn_lat1d = 50.1 ! Column latitude [PAPA station] … … 57 57 / 58 58 !----------------------------------------------------------------------- 59 &namc1d_dyndmp ! U & V newtonian damping ( "key_c1d"default: OFF)59 &namc1d_dyndmp ! U & V newtonian damping (ln_c1d =T default: OFF) 60 60 !----------------------------------------------------------------------- 61 61 ln_dyndmp = .false. ! add a damping term (T) or not (F) 62 62 / 63 63 !----------------------------------------------------------------------- 64 &namc1d_uvd ! data: U & V currents ( "key_c1d"default: OFF)64 &namc1d_uvd ! data: U & V currents (ln_c1d =T default: OFF) 65 65 !----------------------------------------------------------------------- 66 66 ! ! =T read U-V fields for: -
NEMO/trunk/tests/STATION_ASF/SANITY_CHECK/IDEALIZED/oce/namelist_ecmwf_cfg
r14229 r15023 16 16 !! namtsd data: temperature & salinity (default: OFF) 17 17 !! namcrs coarsened grid (for outputs and/or TOP) (ln_crs =T) 18 !! namc1d 1D configuration options ( "key_c1d")19 !! namc1d_dyndmp 1D newtonian damping applied on currents ( "key_c1d")20 !! namc1d_uvd 1D data (currents) ( "key_c1d")18 !! namc1d 1D configuration options (ln_c1d =T) 19 !! namc1d_dyndmp 1D newtonian damping applied on currents (ln_c1d =T) 20 !! namc1d_uvd 1D data (currents) (ln_c1d =T) 21 21 !!====================================================================== 22 22 ! … … 51 51 / 52 52 !----------------------------------------------------------------------- 53 &namc1d ! 1D configuration options / STATION_ASF ( "key_c1d"default: PAPA station)53 &namc1d ! 1D configuration options / STATION_ASF (ln_c1d =T default: PAPA station) 54 54 !----------------------------------------------------------------------- 55 55 rn_lat1d = 50.1 ! Column latitude [PAPA station] … … 57 57 / 58 58 !----------------------------------------------------------------------- 59 &namc1d_dyndmp ! U & V newtonian damping ( "key_c1d"default: OFF)59 &namc1d_dyndmp ! U & V newtonian damping (ln_c1d =T default: OFF) 60 60 !----------------------------------------------------------------------- 61 61 ln_dyndmp = .false. ! add a damping term (T) or not (F) 62 62 / 63 63 !----------------------------------------------------------------------- 64 &namc1d_uvd ! data: U & V currents ( "key_c1d"default: OFF)64 &namc1d_uvd ! data: U & V currents (ln_c1d =T default: OFF) 65 65 !----------------------------------------------------------------------- 66 66 ! ! =T read U-V fields for: -
NEMO/trunk/tests/STATION_ASF/SANITY_CHECK/IDEALIZED/oce/namelist_ncar_cfg
r14229 r15023 16 16 !! namtsd data: temperature & salinity (default: OFF) 17 17 !! namcrs coarsened grid (for outputs and/or TOP) (ln_crs =T) 18 !! namc1d 1D configuration options ( "key_c1d")19 !! namc1d_dyndmp 1D newtonian damping applied on currents ( "key_c1d")20 !! namc1d_uvd 1D data (currents) ( "key_c1d")18 !! namc1d 1D configuration options (ln_c1d =T) 19 !! namc1d_dyndmp 1D newtonian damping applied on currents (ln_c1d =T) 20 !! namc1d_uvd 1D data (currents) (ln_c1d =T) 21 21 !!====================================================================== 22 22 ! … … 51 51 / 52 52 !----------------------------------------------------------------------- 53 &namc1d ! 1D configuration options / STATION_ASF ( "key_c1d"default: PAPA station)53 &namc1d ! 1D configuration options / STATION_ASF (ln_c1d =T default: PAPA station) 54 54 !----------------------------------------------------------------------- 55 55 rn_lat1d = 50.1 ! Column latitude [PAPA station] … … 57 57 / 58 58 !----------------------------------------------------------------------- 59 &namc1d_dyndmp ! U & V newtonian damping ( "key_c1d"default: OFF)59 &namc1d_dyndmp ! U & V newtonian damping (ln_c1d =T default: OFF) 60 60 !----------------------------------------------------------------------- 61 61 ln_dyndmp = .false. ! add a damping term (T) or not (F) 62 62 / 63 63 !----------------------------------------------------------------------- 64 &namc1d_uvd ! data: U & V currents ( "key_c1d"default: OFF)64 &namc1d_uvd ! data: U & V currents (ln_c1d =T default: OFF) 65 65 !----------------------------------------------------------------------- 66 66 ! ! =T read U-V fields for: -
NEMO/trunk/tests/STATION_ASF/cpp_STATION_ASF.fcm
r14239 r15023 1 bld::tool::fppkeys key_si3 key_ c1d key_qco key_xios1 bld::tool::fppkeys key_si3 key_qco key_xios -
NEMO/trunk/tests/SWG/EXPREF/namelist_cfg
r14843 r15023 12 12 !! namtsd data: temperature & salinity (default: OFF) 13 13 !! namcrs coarsened grid (for outputs and/or TOP) (ln_crs =T) 14 !! namc1d 1D configuration options ( "key_c1d")15 !! namc1d_dyndmp 1D newtonian damping applied on currents ( "key_c1d")16 !! namc1d_uvd 1D data (currents) ( "key_c1d")14 !! namc1d 1D configuration options (ln_c1d =T) 15 !! namc1d_dyndmp 1D newtonian damping applied on currents (ln_c1d =T) 16 !! namc1d_uvd 1D data (currents) (ln_c1d =T) 17 17 !!====================================================================== 18 18 ! -
NEMO/trunk/tests/TSUNAMI/EXPREF/namelist_cfg
r14843 r15023 12 12 !! namtsd data: temperature & salinity (default: OFF) 13 13 !! namcrs coarsened grid (for outputs and/or TOP) (ln_crs =T) 14 !! namc1d 1D configuration optgions ( "key_c1d")15 !! namc1d_dyndmp 1D newtonian damping applied on currents ( "key_c1d")16 !! namc1d_uvd 1D data (currents) ( "key_c1d")14 !! namc1d 1D configuration optgions (ln_c1d =T) 15 !! namc1d_dyndmp 1D newtonian damping applied on currents (ln_c1d =T) 16 !! namc1d_uvd 1D data (currents) (ln_c1d =T) 17 17 !!====================================================================== 18 18 ! -
NEMO/trunk/tests/VORTEX/EXPREF/1_namelist_cfg
r14843 r15023 12 12 !! namtsd data: temperature & salinity (default: OFF) 13 13 !! namcrs coarsened grid (for outputs and/or TOP) (ln_crs =T) 14 !! namc1d 1D configuration options ( "key_c1d")15 !! namc1d_dyndmp 1D newtonian damping applied on currents ( "key_c1d")16 !! namc1d_uvd 1D data (currents) ( "key_c1d")14 !! namc1d 1D configuration options (ln_c1d =T) 15 !! namc1d_dyndmp 1D newtonian damping applied on currents (ln_c1d =T) 16 !! namc1d_uvd 1D data (currents) (ln_c1d =T) 17 17 !!====================================================================== 18 18 ! -
NEMO/trunk/tests/VORTEX/EXPREF/namelist_cfg
r14843 r15023 12 12 !! namtsd data: temperature & salinity (default: OFF) 13 13 !! namcrs coarsened grid (for outputs and/or TOP) (ln_crs =T) 14 !! namc1d 1D configuration options ( "key_c1d")15 !! namc1d_dyndmp 1D newtonian damping applied on currents ( "key_c1d")16 !! namc1d_uvd 1D data (currents) ( "key_c1d")14 !! namc1d 1D configuration options (ln_c1d =T) 15 !! namc1d_dyndmp 1D newtonian damping applied on currents (ln_c1d =T) 16 !! namc1d_uvd 1D data (currents) (ln_c1d =T) 17 17 !!====================================================================== 18 18 ! -
NEMO/trunk/tests/WAD/EXPREF/namelist_cfg
r14843 r15023 12 12 !! namtsd data: temperature & salinity (default: OFF) 13 13 !! namcrs coarsened grid (for outputs and/or TOP) (ln_crs =T) 14 !! namc1d 1D configuration options ( "key_c1d")15 !! namc1d_dyndmp 1D newtonian damping applied on currents ( "key_c1d")16 !! namc1d_uvd 1D data (currents) ( "key_c1d")14 !! namc1d 1D configuration options (ln_c1d =T) 15 !! namc1d_dyndmp 1D newtonian damping applied on currents (ln_c1d =T) 16 !! namc1d_uvd 1D data (currents) (ln_c1d =T) 17 17 !!====================================================================== 18 18 !
Note: See TracChangeset
for help on using the changeset viewer.