Changeset 2971 for branches/2011/dev_r2802_TOP_substepping/NEMOGCM/NEMO/OPA_SRC/TRA/trabbl.F90

Timestamp:

2011-10-21T14:29:39+02:00 (13 years ago)

Author:

kpedwards

Message:

Latest changes for substepping - add key_trabbl.

File:

• branches/2011/dev_r2802_TOP_substepping/NEMOGCM/NEMO/OPA_SRC/TRA/trabbl.F90 (modified) (1 diff)

branches/2011/dev_r2802_TOP_substepping/NEMOGCM/NEMO/OPA_SRC/TRA/trabbl.F90

@@ -106 +106 @@
       !!----------------------------------------------------------------------
 
-      IF( l_trdtra )   THEN                    !* Save ta and sa trends
+      IF( l_trdtra )   THEN                        !* Save ta and sa trends
          ALLOCATE( ztrdt(jpi,jpj,jpk) )   ;    ztrdt(:,:,:) = tsa(:,:,:,jp_tem) 
          ALLOCATE( ztrds(jpi,jpj,jpk) )   ;    ztrds(:,:,:) = tsa(:,:,:,jp_sal)
       ENDIF
 
-      IF( l_bbl )   CALL bbl( kt, 'TRA' )       !* bbl coef. and transport (only if not already done in trcbbl)
-
-
-      IF( nn_bbl_ldf == 1 ) THEN                !* Diffusive bbl
+      IF( l_bbl )  CALL bbl( kt, nit000, 'TRA' )   !* bbl coef. and transport (only if not already done in trcbbl)
+
+
+      IF( nn_bbl_ldf == 1 ) THEN                   !* Diffusive bbl
          CALL tra_bbl_dif( tsb, tsa, jpts )
          IF( ln_ctl )  &