- Timestamp:
- 2011-11-14T14:13:32+01:00 (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2011/dev_MERCATOR_INGV_2011_MERGE/NEMOGCM/NEMO/OPA_SRC/SBC/sbcmod.F90
r2715 r3085 29 29 USE sbcblk_clio ! surface boundary condition: bulk formulation : CLIO 30 30 USE sbcblk_core ! surface boundary condition: bulk formulation : CORE 31 USE sbcblk_ecmwf ! surface boundary condition: bulk formulation : MFS 31 32 USE sbcice_if ! surface boundary condition: ice-if sea-ice model 32 33 USE sbcice_lim ! surface boundary condition: LIM 3.0 sea-ice model … … 46 47 USE in_out_manager ! I/O manager 47 48 USE lib_mpp ! MPP library 49 USE sbcwave ! Wave module 48 50 49 51 IMPLICIT NONE … … 78 80 !! 79 81 NAMELIST/namsbc/ nn_fsbc , ln_ana , ln_flx , ln_blk_clio, ln_blk_core, ln_cpl, & 80 & ln_ apr_dyn, nn_ice , ln_dm2dc, ln_rnf , ln_ssr , nn_fwb82 & ln_blk_ecmwf, ln_apr_dyn, nn_ice , ln_dm2dc, ln_rnf, ln_ssr , nn_fwb, ln_cdgw 81 83 !!---------------------------------------------------------------------- 82 84 … … 107 109 WRITE(numout,*) ' flux formulation ln_flx = ', ln_flx 108 110 WRITE(numout,*) ' CLIO bulk formulation ln_blk_clio = ', ln_blk_clio 109 WRITE(numout,*) ' CLIO bulk formulation ln_blk_core = ', ln_blk_core 111 WRITE(numout,*) ' CORE bulk formulation ln_blk_core = ', ln_blk_core 112 WRITE(numout,*) ' MFS bulk formulation ln_blk_ecmwf= ', ln_blk_ecmwf 110 113 WRITE(numout,*) ' coupled formulation (T if key_sbc_cpl) ln_cpl = ', ln_cpl 111 114 WRITE(numout,*) ' Misc. options of sbc : ' … … 154 157 IF( ln_dm2dc .AND. ( ( NINT(rday) / ( nn_fsbc * NINT(rdt) ) ) < 8 ) ) & 155 158 & CALL ctl_warn( 'diurnal cycle for qsr: the sampling of the diurnal cycle is too small...' ) 159 160 !drag coefficient read from wave model definable only with ecmwf bulk formulae and core 161 IF(ln_cdgw .AND. .NOT.(ln_blk_ecmwf .OR. ln_blk_core) ) & 162 & CALL ctl_stop( 'drag coefficient read from wave model definable only with ecmwf bulk formulae and core') 156 163 157 164 ! ! Choice of the Surface Boudary Condition (set nsbc) … … 161 168 IF( ln_blk_clio ) THEN ; nsbc = 3 ; icpt = icpt + 1 ; ENDIF ! CLIO bulk formulation 162 169 IF( ln_blk_core ) THEN ; nsbc = 4 ; icpt = icpt + 1 ; ENDIF ! CORE bulk formulation 170 IF( ln_blk_ecmwf ) THEN ; nsbc = 6 ; icpt = icpt + 1 ; ENDIF ! MFS bulk formulation 163 171 IF( ln_cpl ) THEN ; nsbc = 5 ; icpt = icpt + 1 ; ENDIF ! Coupled formulation 164 172 IF( cp_cfg == 'gyre') THEN ; nsbc = 0 ; ENDIF ! GYRE analytical formulation … … 181 189 IF( nsbc == 4 ) WRITE(numout,*) ' CORE bulk formulation' 182 190 IF( nsbc == 5 ) WRITE(numout,*) ' coupled formulation' 191 IF( nsbc == 6 ) WRITE(numout,*) ' MFS Bulk formulation' 183 192 ENDIF 184 193 ! … … 228 237 ! ! averaged over nf_sbc time-step 229 238 239 IF (ln_cdgw) CALL sbc_wave( kt ) 230 240 !== sbc formulation ==! 231 241 … … 238 248 CASE( 4 ) ; CALL sbc_blk_core( kt ) ! bulk formulation : CORE for the ocean 239 249 CASE( 5 ) ; CALL sbc_cpl_rcv ( kt, nn_fsbc, nn_ice ) ! coupled formulation 250 CASE( 6 ) ; CALL sbc_blk_ecmwf( kt ) ! bulk formulation : MFS for the ocean 240 251 CASE( -1 ) 241 252 CALL sbc_ana ( kt ) ! ESOPA, test ALL the formulations
Note: See TracChangeset
for help on using the changeset viewer.