Changeset 5601 for branches/2015/dev_r5003_MERCATOR6_CRS/NEMOGCM/NEMO/OPA_SRC/nemogcm.F90

Timestamp:

2015-07-16T11:04:29+02:00 (9 years ago)

Author:

cbricaud

Message:

commit changes/bugfix/... for crs ; ok with time-splitting/fixed volume

File:

• branches/2015/dev_r5003_MERCATOR6_CRS/NEMOGCM/NEMO/OPA_SRC/nemogcm.F90 (modified) (4 diffs)

branches/2015/dev_r5003_MERCATOR6_CRS/NEMOGCM/NEMO/OPA_SRC/nemogcm.F90

@@ -82 +82 @@
    USE crsini          ! initialise grid coarsening utility
    USE lbcnfd, ONLY: isendto, nsndto, nfsloop, nfeloop ! Setup of north fold exchanges 
+   USE trabbl_crs
 
    IMPLICIT NONE
@@ -114 +115 @@
       !!----------------------------------------------------------------------
       INTEGER ::   istp       ! time step index
+      CHARACTER(len=20) :: cmd 
       !!----------------------------------------------------------------------
       !
@@ -410 +412 @@
       IF( lk_ldfslp     )   CALL ldf_slp_init      ! slope of lateral mixing
       !
-      IF( ln_crs .AND. lk_ldfslp ) THEN
+      IF( ln_crs_top .AND. lk_ldfslp ) THEN
                             CALL dom_grid_crs
                             CALL ldf_slp_init_crs
@@ -420 +422 @@
       IF( lk_trabbl     )   CALL tra_bbl_init   ! advective (and/or diffusive) bottom boundary layer scheme
       !
-      IF( ln_crs .AND. lk_trabbl     )  THEN
+      IF( ln_crs_top .AND. lk_trabbl     )  THEN
                             CALL dom_grid_crs 
                             CALL tra_bbl_init_crs   ! advective (and/or diffusive) bottom boundary layer scheme