- Timestamp:
- 2013-05-03T14:35:21+02:00 (11 years ago)
- Location:
- branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/SBC
- Files:
-
- 15 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/SBC/albedo.F90
r3875 r3901 36 36 REAL(wp) :: rmue = 0.40 ! cosine of local solar altitude 37 37 38 ! 39 REAL(wp) :: rn_cloud = 0.06! cloudiness effect on snow or ice albedo (Grenfell & Perovich, 1984)38 ! !!* namelist namsbc_alb 39 REAL(wp) :: rn_cloud ! cloudiness effect on snow or ice albedo (Grenfell & Perovich, 1984) 40 40 #if defined key_lim3 41 REAL(wp) :: rn_albice = 0.53! albedo of melting ice in the arctic and antarctic (Shine & Hendersson-Sellers)41 REAL(wp) :: rn_albice ! albedo of melting ice in the arctic and antarctic (Shine & Hendersson-Sellers) 42 42 #else 43 REAL(wp) :: rn_albice = 0.50! albedo of melting ice in the arctic and antarctic (Shine & Hendersson-Sellers)43 REAL(wp) :: rn_albice ! albedo of melting ice in the arctic and antarctic (Shine & Hendersson-Sellers) 44 44 #endif 45 REAL(wp) :: rn_alphd = 0.80! coefficients for linear interpolation used to compute46 REAL(wp) :: rn_alphdi = 0.72! albedo between two extremes values (Pyane, 1972)47 REAL(wp) :: rn_alphc = 0.65!45 REAL(wp) :: rn_alphd ! coefficients for linear interpolation used to compute 46 REAL(wp) :: rn_alphdi ! albedo between two extremes values (Pyane, 1972) 47 REAL(wp) :: rn_alphc ! 48 48 49 49 !!---------------------------------------------------------------------- -
branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/SBC/cyclone.F90
r3875 r3901 87 87 TYPE(FLD_N), DIMENSION(1) :: slf_i ! array of namelist informations on the TC position 88 88 TYPE(FLD_N) :: sn_tc ! informations about the fields to be read 89 ! NAMELIST/namsbc_tc/ cn_dir , sn_tc90 89 !!-------------------------------------------------------------------- 91 90 -
branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/SBC/sbc_oce.F90
r3680 r3901 28 28 !! Namelist for the Ocean Surface Boundary Condition 29 29 !!---------------------------------------------------------------------- 30 ! 31 LOGICAL , PUBLIC :: ln_ana = .FALSE.!: analytical boundary condition flag32 LOGICAL , PUBLIC :: ln_flx = .FALSE.!: flux formulation33 LOGICAL , PUBLIC :: ln_blk_clio = .FALSE.!: CLIO bulk formulation34 LOGICAL , PUBLIC :: ln_blk_core = .FALSE.!: CORE bulk formulation35 LOGICAL , PUBLIC :: ln_blk_mfs = .FALSE.!: MFS bulk formulation36 LOGICAL , PUBLIC :: ln_cpl = .FALSE.!: coupled formulation (overwritten by key_sbc_coupled )37 LOGICAL , PUBLIC :: ln_dm2dc = .FALSE.!: Daily mean to Diurnal Cycle short wave (qsr)30 ! !!* namsbc namelist * 31 LOGICAL , PUBLIC :: ln_ana !: analytical boundary condition flag 32 LOGICAL , PUBLIC :: ln_flx !: flux formulation 33 LOGICAL , PUBLIC :: ln_blk_clio !: CLIO bulk formulation 34 LOGICAL , PUBLIC :: ln_blk_core !: CORE bulk formulation 35 LOGICAL , PUBLIC :: ln_blk_mfs !: MFS bulk formulation 36 LOGICAL , PUBLIC :: ln_cpl !: coupled formulation (overwritten by key_sbc_coupled ) 37 LOGICAL , PUBLIC :: ln_dm2dc !: Daily mean to Diurnal Cycle short wave (qsr) 38 38 LOGICAL , PUBLIC :: ln_rnf = .FALSE. !: runoffs / runoff mouths 39 LOGICAL , PUBLIC :: ln_ssr = .FALSE. !: Sea Surface restoring on SST and/or SSS 40 LOGICAL , PUBLIC :: ln_apr_dyn = .FALSE. !: Atmospheric pressure forcing used on dynamics (ocean & ice) 41 LOGICAL , PUBLIC :: ln_icebergs = .FALSE. !: Icebergs 42 INTEGER , PUBLIC :: nn_ice = 0 !: flag for ice in the surface boundary condition (=0/1/2/3) 43 INTEGER , PUBLIC :: nn_ice_embd = 0 !: flag for levitating/embedding sea-ice in the ocean 39 LOGICAL , PUBLIC :: ln_ssr !: Sea Surface restoring on SST and/or SSS 40 LOGICAL , PUBLIC :: ln_apr_dyn !: Atmospheric pressure forcing used on dynamics (ocean & ice) 41 INTEGER , PUBLIC :: nn_ice !: flag for ice in the surface boundary condition (=0/1/2/3) 42 INTEGER , PUBLIC :: nn_ice_embd !: flag for levitating/embedding sea-ice in the ocean 44 43 ! !: =0 levitating ice (no mass exchange, concentration/dilution effect) 45 44 ! !: =1 levitating ice with mass and salt exchange but no presure effect 46 45 ! !: =2 embedded sea-ice (full salt and mass exchanges and pressure) 47 INTEGER , PUBLIC :: nn_fwb = 0!: FreshWater Budget:46 INTEGER , PUBLIC :: nn_fwb !: FreshWater Budget: 48 47 ! !: = 0 unchecked 49 48 ! !: = 1 global mean of e-p-r set to zero at each nn_fsbc time step 50 49 ! !: = 2 annual global mean of e-p-r set to zero 51 LOGICAL , PUBLIC :: ln_wave = .FALSE. !: true if some coupling with wave model 52 LOGICAL , PUBLIC :: ln_cdgw = .FALSE. !: true if neutral drag coefficient from wave model 53 LOGICAL , PUBLIC :: ln_sdw = .FALSE. !: true if 3d stokes drift from wave model 50 LOGICAL , PUBLIC :: ln_wave !: true if some coupling with wave model 51 LOGICAL , PUBLIC :: ln_cdgw !: true if neutral drag coefficient from wave model 52 LOGICAL , PUBLIC :: ln_sdw !: true if 3d stokes drift from wave model 53 ! 54 LOGICAL , PUBLIC :: ln_icebergs !: Icebergs 54 55 55 56 !!---------------------------------------------------------------------- -
branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/SBC/sbcana.F90
r3875 r3901 27 27 PUBLIC sbc_gyre ! routine called in sbcmod module 28 28 29 ! 30 INTEGER :: nn_tau000 = 1! nb of time-step during which the surface stress31 ! 32 REAL(wp) :: rn_utau0 = 0._wp! constant wind stress value in i-direction33 REAL(wp) :: rn_vtau0 = 0._wp! constant wind stress value in j-direction34 REAL(wp) :: rn_qns0 = 0._wp! non solar heat flux35 REAL(wp) :: rn_qsr0 = 0._wp! solar heat flux36 REAL(wp) :: rn_emp0 = 0._wp! net freshwater flux29 ! !!* Namelist namsbc_ana * 30 INTEGER :: nn_tau000 ! nb of time-step during which the surface stress 31 ! ! increase from 0 to its nominal value 32 REAL(wp) :: rn_utau0 ! constant wind stress value in i-direction 33 REAL(wp) :: rn_vtau0 ! constant wind stress value in j-direction 34 REAL(wp) :: rn_qns0 ! non solar heat flux 35 REAL(wp) :: rn_qsr0 ! solar heat flux 36 REAL(wp) :: rn_emp0 ! net freshwater flux 37 37 38 38 !! * Substitutions -
branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/SBC/sbcapr.F90
r3875 r3901 26 26 PUBLIC sbc_apr ! routine called in sbcmod 27 27 28 ! 29 LOGICAL, PUBLIC :: ln_apr_obc = .FALSE.!: inverse barometer added to OBC ssh data30 LOGICAL, PUBLIC :: ln_ref_apr = .FALSE.!: ref. pressure: global mean Patm (F) or a constant (F)31 REAL(wp) :: rn_pref = 101000._wp! reference atmospheric pressure [N/m2]28 ! !!* namsbc_apr namelist (Atmospheric PRessure) * 29 LOGICAL, PUBLIC :: ln_apr_obc !: inverse barometer added to OBC ssh data 30 LOGICAL, PUBLIC :: ln_ref_apr !: ref. pressure: global mean Patm (F) or a constant (F) 31 REAL(wp) :: rn_pref ! reference atmospheric pressure [N/m2] 32 32 33 33 REAL(wp), ALLOCATABLE, SAVE, PUBLIC, DIMENSION(:,:) :: ssh_ib ! Inverse barometer now sea surface height [m] … … 76 76 ! ! -------------------- ! 77 77 IF( kt == nit000 ) THEN ! First call kt=nit000 ! 78 ! ! -------------------- ! 79 ! !* set file information (default values) 80 ! ... default values (NB: frequency positive => hours, negative => months) 81 ! ! file ! frequency ! variable ! time intep ! clim ! 'yearly' or ! weights ! rotation ! 82 ! ! name ! (hours) ! name ! (T/F) ! (T/F) ! 'monthly' ! filename ! pairs ! 83 sn_apr = FLD_N( 'patm' , 24 , 'patm' , .false. , .true. , 'yearly' , '' , '' ) 84 cn_dir = './' ! directory in which the Patm data are 78 ! ! -------------------- ! 85 79 86 80 REWIND( numnam_ref ) ! Namelist namsbc_apr in reference namelist : File for atmospheric pressure forcing -
branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/SBC/sbcblk_clio.F90
r3875 r3901 140 140 IF( kt == nit000 ) THEN ! First call kt=nit000 ! 141 141 ! ! ====================== ! 142 ! set file information (default values)143 cn_dir = './' ! directory in which the model is executed144 145 ! (NB: frequency positive => hours, negative => months)146 ! ! file ! frequency ! variable ! time intep ! clim ! 'yearly' or ! weights ! rotation !147 ! ! name ! (hours) ! name ! (T/F) ! (T/F) ! 'monthly' ! filename ! pairs !148 sn_utau = FLD_N( 'utau' , 24 , 'utau' , .true. , .false. , 'yearly' , '' , '' )149 sn_vtau = FLD_N( 'vtau' , 24 , 'vtau' , .true. , .false. , 'yearly' , '' , '' )150 sn_wndm = FLD_N( 'mwnd10m', 24 , 'm_10' , .true. , .false. , 'yearly' , '' , '' )151 sn_tair = FLD_N( 'tair10m', 24 , 't_10' , .false. , .false. , 'yearly' , '' , '' )152 sn_humi = FLD_N( 'humi10m', 24 , 'q_10' , .false. , .false. , 'yearly' , '' , '' )153 sn_ccov = FLD_N( 'ccover' , -1 , 'cloud' , .true. , .false. , 'yearly' , '' , '' )154 sn_prec = FLD_N( 'precip' , -1 , 'precip' , .true. , .false. , 'yearly' , '' , '' )155 142 156 143 REWIND( numnam_ref ) ! Namelist namsbc_clio in reference namelist : CLIO files -
branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/SBC/sbcblk_core.F90
r3875 r3901 73 73 74 74 ! !!* Namelist namsbc_core : CORE bulk parameters 75 LOGICAL :: ln_2m = .FALSE.! logical flag for height of air temp. and hum76 LOGICAL :: ln_taudif = .FALSE.! logical flag to use the "mean of stress module - module of mean stress" data77 REAL(wp) :: rn_pfac = 1.! multiplication factor for precipitation75 LOGICAL :: ln_2m ! logical flag for height of air temp. and hum 76 LOGICAL :: ln_taudif ! logical flag to use the "mean of stress module - module of mean stress" data 77 REAL(wp) :: rn_pfac ! multiplication factor for precipitation 78 78 79 79 !! * Substitutions … … 136 136 IF( kt == nit000 ) THEN ! First call kt=nit000 ! 137 137 ! ! ====================== ! 138 ! set file information (default values)139 cn_dir = './' ! directory in which the model is executed140 138 ! 141 ! (NB: frequency positive => hours, negative => months)142 ! ! file ! frequency ! variable ! time intep ! clim ! 'yearly' or ! weights ! rotation !143 ! ! name ! (hours) ! name ! (T/F) ! (T/F) ! 'monthly' ! filename ! pairs !144 sn_wndi = FLD_N( 'uwnd10m', 24 , 'u_10' , .false. , .false. , 'yearly' , '' , '' )145 sn_wndj = FLD_N( 'vwnd10m', 24 , 'v_10' , .false. , .false. , 'yearly' , '' , '' )146 sn_qsr = FLD_N( 'qsw' , 24 , 'qsw' , .false. , .false. , 'yearly' , '' , '' )147 sn_qlw = FLD_N( 'qlw' , 24 , 'qlw' , .false. , .false. , 'yearly' , '' , '' )148 sn_tair = FLD_N( 'tair10m', 24 , 't_10' , .false. , .false. , 'yearly' , '' , '' )149 sn_humi = FLD_N( 'humi10m', 24 , 'q_10' , .false. , .false. , 'yearly' , '' , '' )150 sn_prec = FLD_N( 'precip' , -1 , 'precip' , .true. , .false. , 'yearly' , '' , '' )151 sn_snow = FLD_N( 'snow' , -1 , 'snow' , .true. , .false. , 'yearly' , '' , '' )152 sn_tdif = FLD_N( 'taudif' , 24 , 'taudif' , .true. , .false. , 'yearly' , '' , '' )153 !154 155 139 REWIND( numnam_ref ) ! Namelist namsbc_core in reference namelist : CORE bulk parameters 156 140 READ ( numnam_ref, namsbc_core, IOSTAT = ios, ERR = 901) -
branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/SBC/sbcblk_mfs.F90
r3875 r3901 128 128 IF( kt == nit000 ) THEN ! First call kt=nit000 ! 129 129 ! ! ====================== ! 130 ALLOCATE( sh_now(jpi,jpj), catm(jpi,jpj), alonl(jpi,jpj), alatl(jpi,jpj), &130 ALLOCATE( sh_now(jpi,jpj), catm(jpi,jpj), alonl(jpi,jpj), alatl(jpi,jpj), & 131 131 & gsst(jpi,jpj), qbw(jpi,jpj), ha(jpi,jpj), elat(jpi,jpj), & 132 132 & evap(jpi,jpj), STAT=ierror ) 133 133 134 134 IF( ierror /= 0 ) CALL ctl_warn('sbc_blk_mfs: failed to allocate arrays') 135 136 REWIND( numnam_ref ) ! Namelist namsbc_msf in reference namelist : MFS files 137 READ ( numnam_ref, namsbc_mfs, IOSTAT = ios, ERR = 901) 138 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_mfs in reference namelist', lwp ) 139 140 REWIND( numnam_cfg ) ! Namelist namsbc_msf in configuration namelist : MFS files 141 READ ( numnam_cfg, namsbc_mfs, IOSTAT = ios, ERR = 902 ) 142 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_mfs in configuration namelist', lwp ) 143 WRITE ( numond, namsbc_mfs ) 144 ! 145 ! store namelist information in an array 146 slf_i(jp_wndi) = sn_wndi ; slf_i(jp_wndj) = sn_wndj 147 slf_i(jp_clc ) = sn_clc ; slf_i(jp_msl ) = sn_msl 148 slf_i(jp_tair) = sn_tair ; slf_i(jp_rhm) = sn_rhm 149 slf_i(jp_prec) = sn_prec ; 150 ! 151 ALLOCATE( sf(jpfld), STAT=ierror ) ! set sf structure 152 IF( ierror > 0 ) THEN 153 CALL ctl_stop( 'sbc_blk_mfs: unable to allocate sf structure' ) ; RETURN 154 ENDIF 155 DO ifpr= 1, jpfld 156 ALLOCATE( sf(ifpr)%fnow(jpi,jpj,1) ) 157 IF( slf_i(ifpr)%ln_tint ) ALLOCATE( sf(ifpr)%fdta(jpi,jpj,1,2) ) 158 END DO 159 ! fill sf with slf_i and control print 160 CALL fld_fill( sf, slf_i, cn_dir,'sbc_blk_mfs','bulk formulation for ocean SBC', 'namsbc_mfs' ) 135 161 ! 136 ! set file information (default values) 137 cn_dir = './' ! directory in which the model is executed 138 ! 139 ! (NB: frequency positive => hours, negative => months) 140 ! ! file ! frequency ! variable ! time intep ! clim ! 'yearly' or ! weights ! rotation ! 141 ! ! name ! (hours) ! name ! (T/F) ! (T/F) ! 'monthly' ! filename ! pairs ! 142 sn_wndi = FLD_N( 'ecmwf' , 24 , 'u10' , .false. , .false. , 'daily' , '' , '' ) 143 sn_wndj = FLD_N( 'ecmwf' , 24 , 'v10' , .false. , .false. , 'daily' , '' , '' ) 144 sn_clc = FLD_N( 'ecmwf' , 24 , 'clc' , .false. , .false. , 'daily' , '' , '' ) 145 sn_msl = FLD_N( 'ecmwf' , 24 , 'msl' , .false. , .false. , 'daily' , '' , '' ) 146 sn_tair = FLD_N( 'ecmwf' , 24 , 't2' , .false. , .false. , 'daily' , '' , '' ) 147 sn_rhm = FLD_N( 'ecmwf' , 24 , 'rh' , .false. , .false. , 'daily' , '' , '' ) 148 sn_prec = FLD_N( 'precip_cmap' , -1 , 'precip' , .true. , .true. , 'yearly' , '' , '' ) 149 ! 150 151 REWIND( numnam_ref ) ! Namelist namsbc_msf in reference namelist : MFS files 152 READ ( numnam_ref, namsbc_mfs, IOSTAT = ios, ERR = 901) 153 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_mfs in reference namelist', lwp ) 154 155 REWIND( numnam_cfg ) ! Namelist namsbc_msf in configuration namelist : MFS files 156 READ ( numnam_cfg, namsbc_mfs, IOSTAT = ios, ERR = 902 ) 157 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_mfs in configuration namelist', lwp ) 158 WRITE ( numond, namsbc_mfs ) 159 ! 160 ! store namelist information in an array 161 slf_i(jp_wndi) = sn_wndi ; slf_i(jp_wndj) = sn_wndj 162 slf_i(jp_clc ) = sn_clc ; slf_i(jp_msl ) = sn_msl 163 slf_i(jp_tair) = sn_tair ; slf_i(jp_rhm) = sn_rhm 164 slf_i(jp_prec) = sn_prec ; 165 ! 166 ALLOCATE( sf(jpfld), STAT=ierror ) ! set sf structure 167 IF( ierror > 0 ) THEN 168 CALL ctl_stop( 'sbc_blk_mfs: unable to allocate sf structure' ) ; RETURN 169 ENDIF 170 DO ifpr= 1, jpfld 171 ALLOCATE( sf(ifpr)%fnow(jpi,jpj,1) ) 172 IF( slf_i(ifpr)%ln_tint ) ALLOCATE( sf(ifpr)%fdta(jpi,jpj,1,2) ) 173 END DO 174 ! fill sf with slf_i and control print 175 CALL fld_fill( sf, slf_i, cn_dir,'sbc_blk_mfs','bulk formulation for ocean SBC', 'namsbc_mfs' ) 176 ! 177 ENDIF 162 ENDIF 178 163 179 164 CALL fld_read( kt, nn_fsbc, sf ) ! input fields provided at the current time-step -
branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/SBC/sbccpl.F90
r3875 r3901 237 237 ! ================================ ! 238 238 239 ! default definitions240 ! ! description ! multiple ! vector ! vector ! vector !241 ! ! ! categories ! reference ! orientation ! grids !242 ! send243 sn_snd_temp = FLD_C( 'weighted oce and ice', 'no' , '' , '' , '' )244 sn_snd_alb = FLD_C( 'weighted ice' , 'no' , '' , '' , '' )245 sn_snd_thick = FLD_C( 'none' , 'no' , '' , '' , '' )246 sn_snd_crt = FLD_C( 'none' , 'no' , 'spherical' , 'eastward-northward' , 'T' )247 sn_snd_co2 = FLD_C( 'none' , 'no' , '' , '' , '' )248 ! receive249 sn_rcv_w10m = FLD_C( 'none' , 'no' , '' , '' , '' )250 sn_rcv_taumod = FLD_C( 'coupled' , 'no' , '' , '' , '' )251 sn_rcv_tau = FLD_C( 'oce only' , 'no' , 'cartesian' , 'eastward-northward', 'U,V' )252 sn_rcv_dqnsdt = FLD_C( 'coupled' , 'no' , '' , '' , '' )253 sn_rcv_qsr = FLD_C( 'oce and ice' , 'no' , '' , '' , '' )254 sn_rcv_qns = FLD_C( 'oce and ice' , 'no' , '' , '' , '' )255 sn_rcv_emp = FLD_C( 'conservative' , 'no' , '' , '' , '' )256 sn_rcv_rnf = FLD_C( 'coupled' , 'no' , '' , '' , '' )257 sn_rcv_cal = FLD_C( 'coupled' , 'no' , '' , '' , '' )258 sn_rcv_iceflx = FLD_C( 'none' , 'no' , '' , '' , '' )259 sn_rcv_co2 = FLD_C( 'none' , 'no' , '' , '' , '' )260 261 239 REWIND( numnam_ref ) ! Namelist namsbc_cpl in reference namelist : Variables for OASIS coupling 262 240 READ ( numnam_ref, namsbc_cpl, IOSTAT = ios, ERR = 901) -
branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/SBC/sbcflx.F90
r3875 r3901 91 91 IF( kt == nit000 ) THEN ! First call kt=nit000 92 92 ! set file information 93 cn_dir = './' ! directory in which the model is executed94 ! ... default values (NB: frequency positive => hours, negative => months)95 ! ! file ! frequency ! variable ! time intep ! clim ! 'yearly' or ! weights ! rotation !96 ! ! name ! (hours) ! name ! (T/F) ! (T/F) ! 'monthly' ! filename ! pairs !97 sn_utau = FLD_N( 'utau' , 24 , 'utau' , .false. , .false. , 'yearly' , '' , '' )98 sn_vtau = FLD_N( 'vtau' , 24 , 'vtau' , .false. , .false. , 'yearly' , '' , '' )99 sn_qtot = FLD_N( 'qtot' , 24 , 'qtot' , .false. , .false. , 'yearly' , '' , '' )100 sn_qsr = FLD_N( 'qsr' , 24 , 'qsr' , .false. , .false. , 'yearly' , '' , '' )101 sn_emp = FLD_N( 'emp' , 24 , 'emp' , .false. , .false. , 'yearly' , '' , '' )102 !103 93 REWIND( numnam_ref ) ! Namelist namsbc_flx in reference namelist : Files for fluxes 104 94 READ ( numnam_ref, namsbc_flx, IOSTAT = ios, ERR = 901) -
branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/SBC/sbcice_if.F90
r3875 r3901 71 71 ! ! ====================== ! 72 72 ! set file information 73 cn_dir = './' ! directory in which the model is executed74 ! ... default values (NB: frequency positive => hours, negative => months)75 ! ! file ! frequency ! variable ! time intep ! clim ! 'yearly' or ! weights ! rotation !76 ! ! name ! (hours) ! name ! (T/F) ! (T/F) ! 'monthly' ! filename ! pairs !77 sn_ice = FLD_N('ice_cover', -1 , 'ice_cov' , .true. , .true. , 'yearly' , '' , '' )78 79 73 REWIND( numnam_ref ) ! Namelist namsbc_iif in reference namelist : Ice if file 80 74 READ ( numnam_ref, namsbc_iif, IOSTAT = ios, ERR = 901) -
branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/SBC/sbcrnf.F90
r3875 r3901 33 33 PUBLIC sbc_rnf_init ! (PUBLIC for TAM) 34 34 ! !!* namsbc_rnf namelist * 35 CHARACTER(len=100), PUBLIC :: cn_dir = './'!: Root directory for location of ssr files36 LOGICAL , PUBLIC :: ln_rnf_depth = .false.!: depth river runoffs attribute specified in a file37 LOGICAL , PUBLIC :: ln_rnf_tem = .false.!: temperature river runoffs attribute specified in a file38 LOGICAL , PUBLIC :: ln_rnf_sal = .false.!: salinity river runoffs attribute specified in a file39 LOGICAL , PUBLIC :: ln_rnf_emp = .false.!: runoffs into a file to be read or already into precipitation40 TYPE(FLD_N) , PUBLIC :: sn_rnf 41 TYPE(FLD_N) , PUBLIC :: sn_cnf 42 TYPE(FLD_N) :: sn_s_rnf 43 TYPE(FLD_N) :: sn_t_rnf 44 TYPE(FLD_N) :: sn_dep_rnf 45 LOGICAL , PUBLIC :: ln_rnf_mouth = .false.!: specific treatment in mouths vicinity46 REAL(wp) , PUBLIC :: rn_hrnf = 0._wp!: runoffs, depth over which enhanced vertical mixing is used47 REAL(wp) , PUBLIC :: rn_avt_rnf = 0._wp!: runoffs, value of the additional vertical mixing coef. [m2/s]48 REAL(wp) , PUBLIC :: rn_rfact = 1._wp!: multiplicative factor for runoff35 CHARACTER(len=100), PUBLIC :: cn_dir !: Root directory for location of ssr files 36 LOGICAL , PUBLIC :: ln_rnf_depth !: depth river runoffs attribute specified in a file 37 LOGICAL , PUBLIC :: ln_rnf_tem !: temperature river runoffs attribute specified in a file 38 LOGICAL , PUBLIC :: ln_rnf_sal !: salinity river runoffs attribute specified in a file 39 LOGICAL , PUBLIC :: ln_rnf_emp !: runoffs into a file to be read or already into precipitation 40 TYPE(FLD_N) , PUBLIC :: sn_rnf !: information about the runoff file to be read 41 TYPE(FLD_N) , PUBLIC :: sn_cnf !: information about the runoff mouth file to be read 42 TYPE(FLD_N) :: sn_s_rnf !: information about the salinities of runoff file to be read 43 TYPE(FLD_N) :: sn_t_rnf !: information about the temperatures of runoff file to be read 44 TYPE(FLD_N) :: sn_dep_rnf !: information about the depth which river inflow affects 45 LOGICAL , PUBLIC :: ln_rnf_mouth !: specific treatment in mouths vicinity 46 REAL(wp) , PUBLIC :: rn_hrnf !: runoffs, depth over which enhanced vertical mixing is used 47 REAL(wp) , PUBLIC :: rn_avt_rnf !: runoffs, value of the additional vertical mixing coef. [m2/s] 48 REAL(wp) , PUBLIC :: rn_rfact !: multiplicative factor for runoff 49 49 50 50 INTEGER , PUBLIC :: nkrnf = 0 !: nb of levels over which Kz is increased at river mouths … … 255 255 ! ! Namelist 256 256 ! ! ============ 257 ! (NB: frequency positive => hours, negative => months)258 ! ! file ! frequency ! variable ! time intep ! clim ! 'yearly' or ! weights ! rotation !259 ! ! name ! (hours) ! name ! (T/F) ! (T/F) ! 'monthly' ! filename ! pairs !260 sn_rnf = FLD_N( 'runoffs', -1 , 'sorunoff' , .TRUE. , .true. , 'yearly' , '' , '' )261 sn_cnf = FLD_N( 'runoffs', 0 , 'sorunoff' , .FALSE. , .true. , 'yearly' , '' , '' )262 263 sn_s_rnf = FLD_N( 'runoffs', 24. , 'rosaline' , .TRUE. , .true. , 'yearly' , '' , '' )264 sn_t_rnf = FLD_N( 'runoffs', 24. , 'rotemper' , .TRUE. , .true. , 'yearly' , '' , '' )265 sn_dep_rnf = FLD_N( 'runoffs', 0. , 'rodepth' , .FALSE. , .true. , 'yearly' , '' , '' )266 257 ! 267 258 REWIND( numnam_ref ) ! Namelist namsbc_rnf in reference namelist : Runoffs -
branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/SBC/sbcssr.F90
r3875 r3901 33 33 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) :: qrp !: heat flux damping [w/m2] 34 34 35 ! 36 INTEGER, PUBLIC :: nn_sstr = 0! SST/SSS restoring indicator37 INTEGER, PUBLIC :: nn_sssr = 0! SST/SSS restoring indicator38 REAL(wp) :: rn_dqdt = -40.e0! restoring factor on SST and SSS39 REAL(wp) :: rn_deds = -27.70! restoring factor on SST and SSS40 LOGICAL :: ln_sssr_bnd = .false.! flag to bound erp term41 REAL(wp) :: rn_sssr_bnd = 0.e0! ABS(Max./Min.) value of erp term [mm/day]35 ! !!* Namelist namsbc_ssr * 36 INTEGER, PUBLIC :: nn_sstr ! SST/SSS restoring indicator 37 INTEGER, PUBLIC :: nn_sssr ! SST/SSS restoring indicator 38 REAL(wp) :: rn_dqdt ! restoring factor on SST and SSS 39 REAL(wp) :: rn_deds ! restoring factor on SST and SSS 40 LOGICAL :: ln_sssr_bnd ! flag to bound erp term 41 REAL(wp) :: rn_sssr_bnd ! ABS(Max./Min.) value of erp term [mm/day] 42 42 43 43 REAL(wp) , ALLOCATABLE, DIMENSION(:) :: buffer ! Temporary buffer for exchange … … 166 166 !!---------------------------------------------------------------------- 167 167 ! 168 ! !* set file information169 cn_dir = './' ! directory in which the model is executed170 ! ... default values (NB: frequency positive => hours, negative => months)171 ! ! file ! frequency ! variable ! time intep ! clim ! 'yearly' or ! weights ! rotation !172 ! ! name ! (hours) ! name ! (T/F) ! (T/F) ! 'monthly' ! filename ! pairs !173 sn_sst = FLD_N( 'sst' , 24 , 'sst' , .false. , .false. , 'yearly' , '' , '' )174 sn_sss = FLD_N( 'sss' , -1 , 'sss' , .true. , .false. , 'yearly' , '' , '' )175 168 176 169 REWIND( numnam_ref ) ! Namelist namsbc_ssr in reference namelist : -
branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/SBC/sbcwave.F90
r3875 r3901 83 83 IF( kt == nit000 ) THEN ! First call kt=nit000 ! 84 84 ! ! -------------------- ! 85 ! !* set file information (default values)86 ! ... default values (NB: frequency positive => hours, negative => months)87 ! ! file ! frequency ! variable ! time intep ! clim ! 'yearly' or ! weights ! rotation !88 ! ! name ! (hours) ! name ! (T/F) ! (T/F) ! 'monthly' ! filename ! pairs !89 sn_cdg = FLD_N('cdg_wave' , 1 ,'drag_coeff', .true. , .false. , 'daily' , '' , '' )90 sn_usd = FLD_N('sdw_wave' , 1 ,'u_sd2d', .true. , .false. , 'daily' , '' , '' )91 sn_vsd = FLD_N('sdw_wave' , 1 ,'v_sd2d', .true. , .false. , 'daily' , '' , '' )92 sn_wn = FLD_N( 'sdw_wave' , 1 ,'wave_num', .true. , .false. , 'daily' , '' , '' )93 cn_dir = './' ! directory in which the wave data are94 85 95 86 REWIND( numnam_ref ) ! Namelist namsbc_wave in reference namelist : File for drag coeff. from wave model -
branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/SBC/tideini.F90
r3875 r3901 26 26 ftide 27 27 28 LOGICAL, PUBLIC :: ln_tide_pot = .false., ln_tide_ramp = .false.28 LOGICAL, PUBLIC :: ln_tide_pot , ln_tide_ramp 29 29 REAL(wp), PUBLIC :: rdttideramp 30 30 INTEGER, PUBLIC :: nb_harmo … … 60 60 ! 61 61 CALL tide_init_Wave 62 !63 clname(:)=''64 62 ! 65 63 ! Read Namelist nam_tide
Note: See TracChangeset
for help on using the changeset viewer.