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

Timestamp:

2016-07-01T18:02:45+02:00 (8 years ago)

Author:

cbricaud

Message:

clean in coarsening branch

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

@@ -56 +56 @@
    USE ldfdyn          ! lateral viscosity setting      (ldfdyn_init routine)
    USE ldftra          ! lateral diffusivity setting    (ldftra_init routine)
+   USE ldftra_crs      ! lateral diffusivity setting    (ldftra_init routine)
    USE zdfini          ! vertical physics setting          (zdf_init routine)
    USE phycst          ! physical constant                  (par_cst routine)
@@ -118 +119 @@
       !!----------------------------------------------------------------------
       INTEGER ::   istp       ! time step index
-      CHARACTER(len=20) :: cmd 
+      CHARACTER(len=30) :: cmd 
       !!----------------------------------------------------------------------
       !
@@ -183 +184 @@
       IF(lwp) WRITE(numout,cform_aaa)   ! Flag AAAAAAA
       !
-      IF( nstop /= 0 .AND. lwp ) THEN   ! error print
+      IF( nstop /= 0 ) THEN   ! error print
+         cmd='touch nemo_NOK'
+         CALL system(cmd)
          WRITE(numout,cform_err)
          WRITE(numout,*) nstop, ' error have been found'
+      ELSE
+         cmd='touch nemo_OK'
+         CALL system(cmd)
       ENDIF
       !
@@ -460 +466 @@
       IF( ln_crs_top )      CALL dom_grid_crs
                             CALL     trc_init
+                            CALL ldf_tra_crs_init
       IF( ln_crs_top )      CALL dom_grid_glo
 #endif