Changeset 9179 for branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/CRS/crs.F90

Timestamp:

2018-01-04T15:13:38+01:00 (6 years ago)

Author:

davestorkey

Message:

dev_merge_2017: fixing bug introduced in last commit.

File:

• branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/CRS/crs.F90 (modified) (1 diff)

branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/CRS/crs.F90

@@ -122 +122 @@
                                                 !: 1 = binning centers at equator (north fold my have artifacts)     
                                                 !:    for even reduction factors, equator placed in bin biased south
-      LOGICAL           :: ln_msh_crs = 1          !: =T Create a meshmask file for CRS
+      LOGICAL           :: ln_msh_crs = .TRUE.     !: =T Create a meshmask file for CRS
       INTEGER           :: nn_crs_kz    =    0     !: type of Kz coarsening ( =0->VOL ; =1->MAX ; =2->MIN) 
       LOGICAL           :: ln_crs_wn    = .FALSE.  !: coarsening wn or computation using horizontal divergence