Changeset 5431 for trunk/NEMOGCM/NEMO/OPA_SRC
- Timestamp:
- 2015-06-16T19:33:42+02:00 (9 years ago)
- Location:
- trunk/NEMOGCM/NEMO/OPA_SRC
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/NEMO/OPA_SRC/SBC/sbcmod.F90
r5407 r5431 178 178 179 179 ! ! Checks: 180 IF( .NOT. ln_rnf ) THEN ! no specific treatment in vicinity of river mouths181 ln_rnf_mouth = .false.182 IF( sbc_rnf_alloc() /= 0 ) CALL ctl_stop( 'STOP', 'sbc_init : unable to allocate sbc_rnf arrays' )183 nkrnf = 0184 rnf (:,:) = 0.0_wp185 rnf_b (:,:) = 0.0_wp186 rnfmsk (:,:) = 0.0_wp187 rnfmsk_z(:) = 0.0_wp188 ENDIF189 180 IF( nn_isf .EQ. 0 ) THEN ! no specific treatment in vicinity of ice shelf 190 181 IF( sbc_isf_alloc() /= 0 ) CALL ctl_stop( 'STOP', 'sbc_init : unable to allocate sbc_isf arrays' ) … … 307 298 IF( ln_ssr ) CALL sbc_ssr_init ! Sea-Surface Restoring initialisation 308 299 ! 309 IF( ln_rnf )CALL sbc_rnf_init ! Runof initialisation300 CALL sbc_rnf_init ! Runof initialisation 310 301 ! 311 302 IF( nn_ice == 3 ) CALL sbc_lim_init ! LIM3 initialisation -
trunk/NEMOGCM/NEMO/OPA_SRC/SBC/sbcrnf.F90
r5407 r5431 36 36 PUBLIC sbc_rnf_init ! (PUBLIC for TAM) 37 37 ! !!* namsbc_rnf namelist * 38 CHARACTER(len=100) , PUBLIC :: cn_dir !: Root directory for location of ssrfiles39 LOGICAL , PUBLIC:: ln_rnf_depth !: depth river runoffs attribute specified in a file38 CHARACTER(len=100) :: cn_dir !: Root directory for location of rnf files 39 LOGICAL :: ln_rnf_depth !: depth river runoffs attribute specified in a file 40 40 LOGICAL :: ln_rnf_depth_ini !: depth river runoffs computed at the initialisation 41 41 REAL(wp) :: rn_rnf_max !: maximum value of the runoff climatologie ( ln_rnf_depth_ini = .true ) 42 42 REAL(wp) :: rn_dep_max !: depth over which runoffs is spread ( ln_rnf_depth_ini = .true ) 43 43 INTEGER :: nn_rnf_depth_file !: create (=1) a runoff depth file or not (=0) 44 LOGICAL , PUBLIC:: ln_rnf_tem !: temperature river runoffs attribute specified in a file44 LOGICAL :: ln_rnf_tem !: temperature river runoffs attribute specified in a file 45 45 LOGICAL , PUBLIC :: ln_rnf_sal !: salinity river runoffs attribute specified in a file 46 46 TYPE(FLD_N) , PUBLIC :: sn_rnf !: information about the runoff file to be read 47 TYPE(FLD_N) , PUBLIC:: sn_cnf !: information about the runoff mouth file to be read47 TYPE(FLD_N) :: sn_cnf !: information about the runoff mouth file to be read 48 48 TYPE(FLD_N) :: sn_s_rnf !: information about the salinities of runoff file to be read 49 49 TYPE(FLD_N) :: sn_t_rnf !: information about the temperatures of runoff file to be read 50 50 TYPE(FLD_N) :: sn_dep_rnf !: information about the depth which river inflow affects 51 51 LOGICAL , PUBLIC :: ln_rnf_mouth !: specific treatment in mouths vicinity 52 REAL(wp) , PUBLIC:: rn_hrnf !: runoffs, depth over which enhanced vertical mixing is used52 REAL(wp) :: rn_hrnf !: runoffs, depth over which enhanced vertical mixing is used 53 53 REAL(wp) , PUBLIC :: rn_avt_rnf !: runoffs, value of the additional vertical mixing coef. [m2/s] 54 REAL(wp) , PUBLIC:: rn_rfact !: multiplicative factor for runoff54 REAL(wp) :: rn_rfact !: multiplicative factor for runoff 55 55 56 56 LOGICAL , PUBLIC :: l_rnfcpl = .false. ! runoffs recieved from oasis … … 63 63 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,:) :: rnf_tsc_b, rnf_tsc !: before and now T & S runoff contents [K.m/s & PSU.m/s] 64 64 65 TYPE(FLD), PUBLIC,ALLOCATABLE, DIMENSION(:) :: sf_rnf ! structure: river runoff (file information, fields read)66 TYPE(FLD), PUBLIC,ALLOCATABLE, DIMENSION(:) :: sf_s_rnf ! structure: river runoff salinity (file information, fields read)67 TYPE(FLD), PUBLIC,ALLOCATABLE, DIMENSION(:) :: sf_t_rnf ! structure: river runoff temperature (file information, fields read)65 TYPE(FLD), ALLOCATABLE, DIMENSION(:) :: sf_rnf ! structure: river runoff (file information, fields read) 66 TYPE(FLD), ALLOCATABLE, DIMENSION(:) :: sf_s_rnf ! structure: river runoff salinity (file information, fields read) 67 TYPE(FLD), ALLOCATABLE, DIMENSION(:) :: sf_t_rnf ! structure: river runoff temperature (file information, fields read) 68 68 69 69 !! * Substitutions … … 268 268 !!---------------------------------------------------------------------- 269 269 ! 270 ! !== allocate runoff arrays 271 IF( sbc_rnf_alloc() /= 0 ) CALL ctl_stop( 'STOP', 'sbc_rnf_alloc : unable to allocate arrays' ) 272 ! 273 IF( .NOT. ln_rnf ) THEN ! no specific treatment in vicinity of river mouths 274 ln_rnf_mouth = .FALSE. ! default definition needed for example by sbc_ssr or by tra_adv_muscl 275 nkrnf = 0 276 rnf (:,:) = 0.0_wp 277 rnf_b (:,:) = 0.0_wp 278 rnfmsk (:,:) = 0.0_wp 279 rnfmsk_z(:) = 0.0_wp 280 RETURN 281 ENDIF 282 ! 270 283 ! ! ============ 271 284 ! ! Namelist … … 295 308 ! ! Type of runoff 296 309 ! ! ================== 297 ! !== allocate runoff arrays298 IF( sbc_rnf_alloc() /= 0 ) CALL ctl_stop( 'STOP', 'sbc_rnf_alloc : unable to allocate arrays' )299 310 ! 300 311 IF( .NOT. l_rnfcpl ) THEN -
trunk/NEMOGCM/NEMO/OPA_SRC/TRA/trasbc.F90
r5120 r5431 21 21 USE sbcmod ! ln_rnf 22 22 USE sbcrnf ! River runoff 23 USE sbcisf ! Ice shelf 23 24 USE traqsr ! solar radiation penetration 24 25 USE trd_oce ! trends: ocean variables … … 27 28 USE in_out_manager ! I/O manager 28 29 USE prtctl ! Print control 29 USE sbcrnf ! River runoff30 USE sbcisf ! Ice shelf31 USE sbcmod ! ln_rnf32 30 USE iom 33 31 USE lbclnk ! ocean lateral boundary conditions (or mpp link)
Note: See TracChangeset
for help on using the changeset viewer.