Changeset 2141 for branches/dev_1784_PATM/NEMO/OPA_SRC/SBC/sbcmod.F90

Timestamp:

2010-09-30T15:22:26+02:00 (14 years ago)

Author:

cbricaud

Message:

add module to read atmospheric pressure and module to compute surface pressure gradient

File:

• branches/dev_1784_PATM/NEMO/OPA_SRC/SBC/sbcmod.F90 (modified) (5 diffs)

branches/dev_1784_PATM/NEMO/OPA_SRC/SBC/sbcmod.F90

@@ -6 +6 @@
    !! History :  3.0   !  07-2006  (G. Madec)  Original code
    !!             -    !  08-2008  (S. Masson, E. .... ) coupled interface
+   !!            3.2   !  2010-08  (J. Chanut, C. Bricaud) add atmospheric pressure forcing 
    !!----------------------------------------------------------------------
 
@@ -28 +29 @@
    USE sbccpl          ! surface boundary condition: coupled florulation
    USE cpl_oasis3, ONLY:lk_cpl      ! are we in coupled mode?
+   USE sbcpatm         ! surface boundary condition: atmospheric pressure forcing
    USE sbcssr          ! surface boundary condition: sea surface restoring
    USE sbcrnf          ! surface boundary condition: runoffs
@@ -70 +72 @@
       !!
       NAMELIST/namsbc/ nn_fsbc, ln_ana, ln_flx, ln_blk_clio, ln_blk_core, ln_cpl,   &
-         &             nn_ice , ln_dm2dc, ln_rnf, ln_ssr, nn_fwb, nn_ico_cpl
+         &             nn_ice , ln_dm2dc, ln_rnf, ln_ssr, ln_patm, nn_fwb, nn_ico_cpl
       !!----------------------------------------------------------------------
 
@@ -114 +116 @@
          WRITE(numout,*) '              runoff / runoff mouths                     ln_rnf      = ', ln_rnf
          WRITE(numout,*) '              Sea Surface Restoring on SST and/or SSS    ln_ssr      = ', ln_ssr
+         WRITE(numout,*) '              Atmpospheric pressure forcing              ln_patm     = ', ln_patm
          WRITE(numout,*) '              FreshWater Budget control  (=0/1/2)        nn_fwb      = ', nn_fwb
          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
       !                                          ! (i.e. sst_m, sss_m, ssu_m, ssv_m)
+
+      ! read atmospharic pressure
+      ! -------------------------
+      IF ( ln_patm ) CALL sbc_patm( kt )
 
       ! sbc formulation