Changeset 4667
- Timestamp:
- 2014-06-12T10:47:52+02:00 (10 years ago)
- Location:
- trunk/NEMOGCM
- Files:
-
- 8 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/CONFIG/C1D_PAPA/EXP00/iodef.xml
r4158 r4667 21 21 --> 22 22 23 <file_definition type=" one_file" name="@expname@_@freq@_@startdate@_@enddate@" sync_freq="1d" min_digits="4">23 <file_definition type="multiple_file" name="@expname@_@freq@_@startdate@_@enddate@" sync_freq="1d" min_digits="4"> 24 24 25 25 <file_group id="1ts" output_freq="1ts" output_level="10" enabled=".TRUE."/> <!-- 1 time step files --> -
trunk/NEMOGCM/CONFIG/C1D_PAPA/EXP00/namelist_cfg
r4370 r4667 7 7 cn_exp = "PAPA" ! experience name 8 8 nn_it000 = 1 ! first time step 9 nn_itend = 78840 ! last time step9 nn_itend = 87600 ! last time step 10 10 nn_date0 = 20100615 ! date at nit_0000 (format yyyymmdd) used if ln_rstart=F or (ln_rstart=T and nn_rstctl=0 or 1) 11 11 nn_leapy = 1 ! Leap year calendar (1) or not (0) 12 nn_stock = 78840 ! frequency of creation of a restart file (modulo referenced to 1)13 nn_write = 60 ! frequency of write in the output file (modulo referenced to nn_it000)12 nn_stock = 87600 ! frequency of creation of a restart file (modulo referenced to 1) 13 nn_write = 240 ! frequency of write in the output file (modulo referenced to nn_it000) 14 14 / 15 15 !----------------------------------------------------------------------- … … 38 38 &namdom ! space and time domain (bathymetry, mesh, timestep) 39 39 !----------------------------------------------------------------------- 40 nn_bathy = 0 ! compute (=0) or read (=1) the bathymetry file 40 41 rn_bathy = 4198. ! value of the bathymetry. if (=0) bottom flat at jpkm1 41 nn_msh = 3! create (=1) a mesh file or not (=0)42 rn_rdt = 400. ! time step for the dynamics (and tracer if nn_acc=0)42 nn_msh = 0 ! create (=1) a mesh file or not (=0) 43 rn_rdt = 360. ! time step for the dynamics (and tracer if nn_acc=0) 43 44 rn_rdtmin = 360. ! minimum time step on tracers (used if nn_acc=1) 44 45 rn_rdtmax = 360. ! maximum time step on tracers (used if nn_acc=1) … … 72 73 / 73 74 !----------------------------------------------------------------------- 75 &namc1d ! 1D configuration options ("key_c1d") 76 !----------------------------------------------------------------------- 77 ln_c1d_locpt= .false. ! Localization of 1D config in a grid (T) or independant point (F) 78 / 79 !----------------------------------------------------------------------- 74 80 &namtsd ! data : Temperature & Salinity 75 81 !----------------------------------------------------------------------- … … 81 87 cn_dir = './' ! root directory for the location of the runoff files 82 88 ln_tsd_init = .true. ! Initialisation of ocean T & S with T &S input data (T) or not (F) 83 ln_tsd_tradmp = . true. ! damping of ocean T & S toward T &S input data (T) or not (F)89 ln_tsd_tradmp = .false. ! damping of ocean T & S toward T &S input data (T) or not (F) 84 90 / 85 91 !----------------------------------------------------------------------- … … 112 118 ! ! file name ! frequency (hours) ! variable ! time interp. ! clim ! 'yearly'/ ! weights ! rotation ! land/sea mask ! 113 119 ! ! ! (if <0 months) ! name ! (logical) ! (T/F) ! 'monthly' ! filename ! pairing ! filename ! 114 sn_wndi = 'forcing_PAPASTATION ' , 1 , 'wndwe' , .true. , .false. , 'yearly' , '' , '', ''115 sn_wndj = 'forcing_PAPASTATION ' , 1 , 'wndsn' , .true. , .false. , 'yearly' , '' , '', ''116 sn_qsr = 'forcing_PAPASTATION ' , 1 , 'qsr' , .false. , .false. , 'yearly' , '' , '', ''117 sn_qlw = 'forcing_PAPASTATION ' , 1 , 'qlw' , .false. , .false. , 'yearly' , '' , '', ''118 sn_tair = 'forcing_PAPASTATION ' , 1 , 'tair' , .true. , .false. , 'yearly' , '' , '', ''119 sn_humi = 'forcing_PAPASTATION ' , 1 , 'humi' , .true. , .false. , 'yearly' , '' , '', ''120 sn_prec = 'forcing_PAPASTATION ' , 1 , 'prec' , .false. , .false. , 'yearly' , '' , '', ''121 sn_snow = 'forcing_PAPASTATION ' , 1 , 'snow' , .false. , .false. , 'yearly' , '' , '', ''120 sn_wndi = 'forcing_PAPASTATION_1h' , 1 , 'wndwe' , .true. , .false. , 'yearly' , '' , '', '' 121 sn_wndj = 'forcing_PAPASTATION_1h' , 1 , 'wndsn' , .true. , .false. , 'yearly' , '' , '', '' 122 sn_qsr = 'forcing_PAPASTATION_1h' , 1 , 'qsr' , .false. , .false. , 'yearly' , '' , '', '' 123 sn_qlw = 'forcing_PAPASTATION_1h' , 1 , 'qlw' , .false. , .false. , 'yearly' , '' , '', '' 124 sn_tair = 'forcing_PAPASTATION_1h' , 1 , 'tair' , .true. , .false. , 'yearly' , '' , '', '' 125 sn_humi = 'forcing_PAPASTATION_1h' , 1 , 'humi' , .true. , .false. , 'yearly' , '' , '', '' 126 sn_prec = 'forcing_PAPASTATION_1h' , 1 , 'prec' , .false. , .false. , 'yearly' , '' , '', '' 127 sn_snow = 'forcing_PAPASTATION_1h' , 1 , 'snow' , .false. , .false. , 'yearly' , '' , '', '' 122 128 ln_2m = .true. ! air temperature and humidity referenced at 2m (T) instead 10m (F) 123 129 / … … 225 231 &namtra_ldf ! lateral diffusion scheme for tracers 226 232 !---------------------------------------------------------------------------------- 233 !---------------------------------------------------------------------------------- 234 ln_traldf_hor = .true. ! horizontal (geopotential) (needs "key_ldfslp" when ln_sco=T) 235 ln_traldf_iso = .false. ! iso-neutral (needs "key_ldfslp") 227 236 rn_aeiv_0 = 0. ! eddy induced velocity coefficient [m2/s] 228 237 rn_aht_0 = 0. ! horizontal eddy diffusivity for tracers [m2/s] … … 244 253 / 245 254 !----------------------------------------------------------------------- 255 &namc1d_uvd ! data: U & V currents ("key_c1d") 256 !----------------------------------------------------------------------- 257 / 258 !----------------------------------------------------------------------- 246 259 &namdyn_hpg ! Hydrostatic pressure gradient option 247 260 !----------------------------------------------------------------------- … … 258 271 &namzdf ! vertical physics 259 272 !----------------------------------------------------------------------- 260 rn_avm0 = 5.0e-6 !rbb 1.2e-4 ! vertical eddy viscosity [m2/s] (background Kz if not "key_zdfcst")261 rn_avt0 = 5.0e-6 !rbb 1.2e-5 ! vertical eddy diffusivity [m2/s] (background Kz if not "key_zdfcst")273 ! rn_avm0 = 5.0e-6 !rbb 1.2e-4 ! vertical eddy viscosity [m2/s] (background Kz if not "key_zdfcst") 274 ! rn_avt0 = 5.0e-6 !rbb 1.2e-5 ! vertical eddy diffusivity [m2/s] (background Kz if not "key_zdfcst") 262 275 ln_zdfevd = .false. !rbb .true. ! enhanced vertical diffusion (evd) (T) or not (F) 263 276 / -
trunk/NEMOGCM/CONFIG/C1D_PAPA/cpp_C1D_PAPA.fcm
r4247 r4667 1 bld::tool::fppkeys key_c1d key_ dynspg_flt key_diahth key_zdfgls key_iomput key_mpp_mpi1 bld::tool::fppkeys key_c1d key_zdfgls -
trunk/NEMOGCM/CONFIG/SHARED/namelist_ref
r4384 r4667 183 183 / 184 184 !----------------------------------------------------------------------- 185 &namc1d ! 1D configuration options ("key_c1d") 186 !----------------------------------------------------------------------- 187 rn_lat1d = 50 ! Column latitude (default at PAPA station) 188 rn_lon1d = -145 ! Column longitude (default at PAPA station) 189 ln_c1d_locpt= .true. ! Localization of 1D config in a grid (T) or independant point (F) 190 / 191 !----------------------------------------------------------------------- 185 192 &namtsd ! data : Temperature & Salinity 186 193 !----------------------------------------------------------------------- … … 957 964 ! (no physical validity of the results) 958 965 nn_timing = 0 ! timing by routine activated (=1) creates timing.output file, or not (=0) 959 /960 !-----------------------------------------------------------------------961 &namc1d ! 1D configuration options ("key_c1d")962 !-----------------------------------------------------------------------963 rn_lat = 50 ! Column latitude964 rn_lon = -145 ! Column longitude965 966 / 966 967 !----------------------------------------------------------------------- -
trunk/NEMOGCM/NEMO/OPA_SRC/C1D/c1d.F90
r4624 r4667 27 27 REAL(wp), PUBLIC :: rn_lat1d ! Column latitude 28 28 REAL(wp), PUBLIC :: rn_lon1d ! Column longitude 29 LOGICAL , PUBLIC :: ln_c1d_locpt ! Localization (or not) of 1D column in a grid 29 30 30 31 !!---------------------------------------------------------------------- … … 44 45 !!---------------------------------------------------------------------- 45 46 INTEGER :: ios ! Local integer output status for namelist read 46 NAMELIST/namc1d/ rn_lat1d, rn_lon1d 47 NAMELIST/namc1d/ rn_lat1d, rn_lon1d , ln_c1d_locpt 47 48 !!---------------------------------------------------------------------- 48 49 ! … … 63 64 WRITE(numout,*) '~~~~~~~~' 64 65 WRITE(numout,*) ' Namelist namc1d : set options for the C1D model' 65 WRITE(numout,*) ' column latitude rn_lat1d = ', rn_lat1d 66 WRITE(numout,*) ' column longitude rn_lon1d = ', rn_lon1d 66 WRITE(numout,*) ' column latitude rn_lat1d = ', rn_lat1d 67 WRITE(numout,*) ' column longitude rn_lon1d = ', rn_lon1d 68 WRITE(numout,*) ' column localization in a grid ln_c1d_locpt = ', ln_c1d_locpt 67 69 ENDIF 68 70 ! … … 78 80 LOGICAL, PUBLIC, PARAMETER :: lk_c1d = .FALSE. !: 1D config. flag de-activated 79 81 REAL(wp) :: rn_lat1d, rn_lon1d 82 LOGICAL , PUBLIC :: ln_c1d_locpt = .FALSE. 83 80 84 CONTAINS 81 85 -
trunk/NEMOGCM/NEMO/OPA_SRC/C1D/domc1d.F90
r4245 r4667 43 43 !! ** Action : Recalculate jpizoom, jpjzoom (indices of C1D zoom) 44 44 !!---------------------------------------------------------------------- 45 NAMELIST/namdom/ nn_bathy, rn_bathy , rn_e3zps_min, rn_e3zps_rat, nn_msh, rn_hmin, & 46 & nn_acc , rn_atfp , rn_rdt , rn_rdtmin , & 47 & rn_rdtmax, rn_rdth , nn_closea , ln_crs, & 48 & jphgr_msh, & 49 & ppglam0, ppgphi0, ppe1_deg, ppe2_deg, ppe1_m, ppe2_m, & 50 & ppsur, ppa0, ppa1, ppkth, ppacr, ppdzmin, pphmax, ldbletanh, & 51 & ppa2, ppkth2, ppacr2 52 45 53 INTEGER :: ji, jj ! Dummy loop indices 46 54 INTEGER :: inum ! Coordinate file handle (case 0) 47 55 INTEGER :: ijeq ! Index of equator T point (case 4) 56 INTEGER :: ios ! Local integer output status for namelist read 48 57 49 58 INTEGER , DIMENSION(2) :: iloc ! Minloc returned indices … … 63 72 IF( nn_timing == 1 ) CALL timing_start('dom_c1d') 64 73 74 REWIND( numnam_ref ) ! Namelist namdom in reference namelist : space & time domain (bathymetry, mesh, timestep) 75 READ ( numnam_ref, namdom, IOSTAT = ios, ERR = 901 ) 76 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namdom in reference namelist', lwp ) 77 78 ! 79 REWIND( numnam_cfg ) ! Namelist namdom in configuration namelist : space & time domain (bathymetry, mesh, timestep) 80 READ ( numnam_cfg, namdom, IOSTAT = ios, ERR = 902 ) 81 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namdom in configuration namelist', lwp ) 82 65 83 CALL wrk_alloc( jpidta, jpjdta, gphidta, glamdta, zdist ) 66 84 … … 80 98 CALL iom_get( inum, jpdom_unknown, 'gphit', gphidta ) ! so use jpdom_unknown not jpdom_data 81 99 CALL iom_close ( inum ) 82 83 PRINT *,'Check dom_c1d coordinates file data read in:' !!!84 PRINT *,'Bottom-left most glamdta is ', glamdta(1,1) !!! Need to check85 PRINT *,'Bottom-left most gphidta is ', gphidta(1,1) !!! field read86 PRINT *,'We are using nimpp,njmpp = ' , nimpp,njmpp !!!87 100 88 101 CASE ( 1 ) ! geographical mesh on the sphere with regular grid-spacing -
trunk/NEMOGCM/NEMO/OPA_SRC/DOM/domcfg.F90
r4245 r4667 82 82 !!---------------------------------------------------------------------- 83 83 ! ! recalculate jpizoom/jpjzoom given lat/lon 84 IF( lk_c1d ) CALL dom_c1d( rn_lat1d, rn_lon1d )84 IF( lk_c1d .AND. ln_c1d_locpt ) CALL dom_c1d( rn_lat1d, rn_lon1d ) 85 85 ! 86 86 ! ! ============== ! -
trunk/NEMOGCM/NEMO/OPA_SRC/nemogcm.F90
r4645 r4667 568 568 ENDIF 569 569 ! 570 IF( lk_c1d .AND. .NOT.lk_iomput ) CALL ctl_stop( 'nemo_ctl: The 1D configuration must be used ', &571 & 'with the IOM Input/Output manager. ' , &572 & 'Compile with key_iomput enabled' )573 !574 570 IF( 1_wp /= SIGN(1._wp,-0._wp) ) CALL ctl_stop( 'nemo_ctl: The intrinsec SIGN function follows ', & 575 571 & 'f2003 standard. ' , &
Note: See TracChangeset
for help on using the changeset viewer.