Changeset 8754 for branches/2015/dev_r5003_MERCATOR6_CRS/NEMOGCM/NEMO/OPA_SRC/CRS/crsdom.F90

Timestamp:

2017-11-20T16:37:17+01:00 (6 years ago)

Author:

cbricaud

Message:

bugfix for coarsening branch

File:

• branches/2015/dev_r5003_MERCATOR6_CRS/NEMOGCM/NEMO/OPA_SRC/CRS/crsdom.F90 (modified) (2 diffs)

branches/2015/dev_r5003_MERCATOR6_CRS/NEMOGCM/NEMO/OPA_SRC/CRS/crsdom.F90

@@ -984 +984 @@
       END SELECT
 
-      CALL crs_lbc_lnk( p_e3_max_crs, cd_type, 1.0, pval=1.0 )
-      CALL crs_lbc_lnk( p_e3_crs    , cd_type, 1.0, pval=1.0 )
+      CALL crs_lbc_lnk( p_e3_max_crs, cd_type, 1.0 )
+      CALL crs_lbc_lnk( p_e3_crs    , cd_type, 1.0 )
 
    END SUBROUTINE crs_dom_e3
@@ -1089 +1089 @@
       END SELECT
 
-      CALL crs_lbc_lnk( p_surf_crs    , cd_type, 1.0 )
-      CALL crs_lbc_lnk( p_surf_crs_msk, cd_type, 1.0 )
+      CALL crs_lbc_lnk( p_surf_crs    , cd_type , 1. )
+      CALL crs_lbc_lnk( p_surf_crs_msk, cd_type , 1. )
 
       CALL wrk_dealloc( jpi, jpj, jpk, zsurf, zsurfmsk )