- Timestamp:
- 2010-09-30T15:22:26+02:00 (14 years ago)
- Location:
- branches/dev_1784_PATM/NEMO/OPA_SRC
- Files:
-
- 4 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/dev_1784_PATM/NEMO/OPA_SRC/DOM/phycst.F90
r1739 r2141 52 52 rauw = 1000._wp , & !: volumic mass of pure water (kg/m3) 53 53 rcp = 4.e+3_wp, & !: ocean specific heat 54 ro0cpr !: = 1. / ( rau0 * rcp ) 54 ro0cpr , & !: = 1. / ( rau0 * rcp ) 55 rpref = 101000._wp !: reference pressure for sea surface 55 56 56 57 REAL(wp), PUBLIC :: & !: -
branches/dev_1784_PATM/NEMO/OPA_SRC/SBC/sbc_oce.F90
r1705 r2141 24 24 LOGICAL , PUBLIC :: ln_rnf = .FALSE. !: runoffs / runoff mouths 25 25 LOGICAL , PUBLIC :: ln_ssr = .FALSE. !: Sea Surface restoring on SST and/or SSS 26 LOGICAL , PUBLIC :: ln_patm = .FALSE. !: Read atmospheric pressure 26 27 INTEGER , PUBLIC :: nn_ice = 0 !: flag on ice in the surface boundary condition (=0/1/2/3) 27 28 INTEGER , PUBLIC :: nn_fwb = 0 !: FreshWater Budget: -
branches/dev_1784_PATM/NEMO/OPA_SRC/SBC/sbcmod.F90
r1725 r2141 6 6 !! History : 3.0 ! 07-2006 (G. Madec) Original code 7 7 !! - ! 08-2008 (S. Masson, E. .... ) coupled interface 8 !! 3.2 ! 2010-08 (J. Chanut, C. Bricaud) add atmospheric pressure forcing 8 9 !!---------------------------------------------------------------------- 9 10 … … 28 29 USE sbccpl ! surface boundary condition: coupled florulation 29 30 USE cpl_oasis3, ONLY:lk_cpl ! are we in coupled mode? 31 USE sbcpatm ! surface boundary condition: atmospheric pressure forcing 30 32 USE sbcssr ! surface boundary condition: sea surface restoring 31 33 USE sbcrnf ! surface boundary condition: runoffs … … 70 72 !! 71 73 NAMELIST/namsbc/ nn_fsbc, ln_ana, ln_flx, ln_blk_clio, ln_blk_core, ln_cpl, & 72 & nn_ice , ln_dm2dc, ln_rnf, ln_ssr, nn_fwb, nn_ico_cpl74 & nn_ice , ln_dm2dc, ln_rnf, ln_ssr, ln_patm, nn_fwb, nn_ico_cpl 73 75 !!---------------------------------------------------------------------- 74 76 … … 114 116 WRITE(numout,*) ' runoff / runoff mouths ln_rnf = ', ln_rnf 115 117 WRITE(numout,*) ' Sea Surface Restoring on SST and/or SSS ln_ssr = ', ln_ssr 118 WRITE(numout,*) ' Atmpospheric pressure forcing ln_patm = ', ln_patm 116 119 WRITE(numout,*) ' FreshWater Budget control (=0/1/2) nn_fwb = ', nn_fwb 117 120 WRITE(numout,*) ' closed sea (=0/1) (set in namdom) nn_closea = ', nn_closea … … 195 198 ! ! temperature and salinity (at T-point) over nf_sbc time-step 196 199 ! ! (i.e. sst_m, sss_m, ssu_m, ssv_m) 200 201 ! read atmospharic pressure 202 ! ------------------------- 203 IF ( ln_patm ) CALL sbc_patm( kt ) 197 204 198 205 ! sbc formulation -
branches/dev_1784_PATM/NEMO/OPA_SRC/step.F90
r1756 r2141 28 28 USE oce ! ocean dynamics and tracers variables 29 29 USE dom_oce ! ocean space and time domain variables 30 USE sbc_oce ! surface boundary condition 30 31 USE zdf_oce ! ocean vertical physics variables 31 32 USE ldftra_oce ! ocean tracer - trends … … 42 43 USE sbcrnf ! surface boundary condition: runoff variables 43 44 USE sbccpl ! surface boundary condition: coupled formulation (call send at end of step) 45 USE sbcpatm ! Atmospheric pressure forcing 44 46 USE cpl_oasis3, ONLY : lk_cpl 45 47 … … 70 72 USE dynzdf ! vertical diffusion (dyn_zdf routine) 71 73 USE dynspg_oce ! surface pressure gradient (dyn_spg routine) 74 USE dynapg ! atmospheric pressure forcing (dyn_apg routine) 72 75 USE dynspg ! surface pressure gradient (dyn_spg routine) 73 76 USE dynnxt ! time-stepping (dyn_nxt routine) … … 168 171 ! IF ( Agrif_Root() .and. lwp) Write(*,*) '---' 169 172 ! IF (lwp) Write(*,*) 'Grid Number',Agrif_Fixed(),' time step ',kstp 170 #endif 173 #endif 171 174 indic = 1 ! reset to no error condition 172 175 … … 310 313 CALL dyn_zdf( kstp ) ! vertical diffusion 311 314 indic=0 315 IF( ln_patm_apg ) CALL dyn_apg( kstp ) ! Atmospheric pressure forcing 312 316 CALL dyn_spg( kstp, indic ) ! surface pressure gradient 313 317 CALL dyn_nxt( kstp ) ! lateral velocity at next time step
Note: See TracChangeset
for help on using the changeset viewer.