Changeset 3119

Timestamp:

2011-11-15T22:45:47+01:00 (12 years ago)

Author:

cetlod

Message:

branch dev_NEMO_MERGE_2011/NEMOGCM: minor bug corrections for offline configuration

Location:

branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OFF_SRC

Files:

• dommsk.F90 (modified) (2 diffs)
• dtadyn.F90 (modified) (1 diff)

branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OFF_SRC/dommsk.F90

@@ -19 +19 @@
 
    PUBLIC   dom_msk    ! routine called by inidom.F90
+
+   REAL(wp)        :: rn_shlat   = 2.   ! type of lateral boundary condition on velocity
+   LOGICAL, PUBLIC :: ln_vorlat  = .false.   !  consistency of vorticity boundary condition 
 
    !! * Substitutions
@@ -48 +51 @@
       INTEGER  ::   ji, jk                   ! dummy loop indices
       INTEGER  ::   iif, iil, ijf, ijl       ! local integers
+      !
       !!---------------------------------------------------------------------
-      !
+      
       IF( iwrk_in_use(2, 1) ) THEN
          CALL ctl_stop('dom_msk: requested workspace arrays unavailable')   ;   RETURN
-      END IF
+      ENDIF
       !
       ! Interior domain mask (used for global sum)

branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OFF_SRC/dtadyn.F90

@@ -260 +260 @@
       ELSE                                                        ! Compute bbl coefficients if needed
          tsb(:,:,:,:) = tsn(:,:,:,:)
-         CALL bbl( kt, 'TRC')
+         CALL bbl( kt, nit000, 'TRC')
       END IF
 #endif