Changeset 554

Timestamp:

2006-10-25T17:29:12+02:00 (18 years ago)

Author:

opalod

Message:

nemo_v1_bugfix_067: GM: remove useless call to eos, bn2 and zps_hde (done in restart or istate)

File:

• trunk/NEMO/OPA_SRC/opa.F90 (modified) (1 diff)

trunk/NEMO/OPA_SRC/opa.F90

@@ -274 +274 @@
       CALL istate_init                      ! ocean initial state (Dynamics and tracers)
 
-!!add
-                       CALL eos( tb, sb, rhd, rhop )        ! before potential and in situ densities
-
-                       CALL bn2( tb, sb, rn2 )              ! before Brunt-Vaisala frequency
-
-      IF( ln_zps .AND. .NOT. lk_cfg_1d )   &
-         &             CALL zps_hde( nit000, tb, sb, rhd,  &  ! Partial steps: before Horizontal DErivative
-                                            gtu, gsu, gru, &  ! of t, s, rd at the bottom ocean level
-                                            gtv, gsv, grv )
-!!add
-
       CALL oc_fz_pt                         ! Surface freezing point