Changeset 440 for trunk/NEMO/OPA_SRC/opa.F90

Timestamp:

2006-04-19T16:43:17+02:00 (18 years ago)

Author:

opalod

Message:

nemo_v1_update_046 : CT : - light modifications related to the way to make SST/SSS damping

• add a flx_init subroutine to read the namflx namelist to get feedback coefficients for SST(dqdt0)/SSS(deds0) damping
• replace the ztrp variable by the dqdt0 read in the namflx namelist

File:

• trunk/NEMO/OPA_SRC/opa.F90 (modified) (3 diffs)

trunk/NEMO/OPA_SRC/opa.F90

@@ -42 +42 @@
    USE trdvor          ! vorticity trends              (trd_vor_init routine)
    USE trdmld          ! tracer mixed layer trends     (trd_mld_init routine)
-   USE flxfwb          ! 
+   USE flxfwb          ! freshwater budget correction  (flx_fwb_init routine)
+   USE flxmod          ! thermohaline forcing of the ocean (flx_init routine)
 
    USE diaptr          ! poleward transports           (dia_ptr_init routine)
@@ -320 +321 @@
 !!add
                        CALL eos( tb, sb, rhd, rhop )        ! before potential and in situ densities
-
+                       
                        CALL bn2( tb, sb, rn2 )              ! before Brunt-Vaisala frequency
 
@@ -372 +373 @@
 #endif
 
+      CALL flx_init                         ! Thermohaline forcing initialization
+
       CALL flx_fwb_init                     ! FreshWater Budget correction