Changeset 8524 for trunk/NEMOGCM/NEMO/OPA_SRC/SBC/sbcmod.F90

Timestamp:

2017-09-15T13:59:24+02:00 (7 years ago)

Author:

cbricaud

Message:

bugfix in trunk for ticket #1922

File:

• trunk/NEMOGCM/NEMO/OPA_SRC/SBC/sbcmod.F90 (modified) (2 diffs)

trunk/NEMOGCM/NEMO/OPA_SRC/SBC/sbcmod.F90

@@ -41 +41 @@
    USE sbcssr         ! surface boundary condition: sea surface restoring
    USE sbcrnf         ! surface boundary condition: runoffs
+   USE sbcapr         ! surface boundary condition: atmo pressure 
    USE sbcisf         ! surface boundary condition: ice shelf
    USE sbcfwb         ! surface boundary condition: freshwater budget
@@ -332 +333 @@
                           CALL sbc_rnf_init            ! Runof initialization
       !
+      IF( ln_apr_dyn )    CALL sbc_apr_init            ! Atmo Pressure Forcing initialization
+      !
       IF( nn_ice == 3 )   CALL sbc_lim_init            ! LIM3 initialization
       !