Changeset 7398 for branches/2015/dev_r5003_MERCATOR6_CRS/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfmxl_crs.F90

Timestamp:

2016-11-30T15:44:11+01:00 (8 years ago)

Author:

cbricaud

Message:

coarsening branch: first implementation of coarsening in PISCES

File:

• branches/2015/dev_r5003_MERCATOR6_CRS/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfmxl_crs.F90 (modified) (2 diffs)

branches/2015/dev_r5003_MERCATOR6_CRS/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfmxl_crs.F90

@@ -78 +78 @@
 
       ! w-level of the turbocline
-      imld(:,:)=0
+      imld(:,:)=1
       DO jk = jpkm1, nlb10, -1         ! from the bottom to nlb10 
          DO jj = 1, jpj_crs
@@ -101 +101 @@
       END DO
       !
+      IF( lk_crs ) CALL iom_swap( "nemo_crs" )
+      CALL iom_put( "mldkz5"  , hmld_crs )
+      IF( lk_crs ) CALL iom_swap( "nemo" )
+      !
       CALL wrk_dealloc( jpi_crs,jpj_crs, imld )
       !