Changeset 13065 for NEMO/branches/2020/dev_r12558_HPC-08_epico_Extra_Halo/src/OCE/DOM/domhgr.F90

Timestamp:

2020-06-08T18:11:57+02:00 (4 years ago)

Author:

smasson

Message:

Extra_Halo: toward AGRIF compatibility, see #2366

File:

• NEMO/branches/2020/dev_r12558_HPC-08_epico_Extra_Halo/src/OCE/DOM/domhgr.F90 (modified) (4 diffs)

NEMO/branches/2020/dev_r12558_HPC-08_epico_Extra_Halo/src/OCE/DOM/domhgr.F90

@@ -89 +89 @@
       ENDIF
       !
-      !
       IF( ln_read_cfg ) THEN        !==  read in mesh_mask.nc file  ==!
+         !
          IF(lwp) WRITE(numout,*)
          IF(lwp) WRITE(numout,*) '   ==>>>   read horizontal mesh in ', TRIM( cn_domcfg ), ' file'
@@ -113 +113 @@
          !
       ENDIF
-      !
       !                             !==  Coriolis parameter  ==!   (if necessary)
       !
@@ -127 +126 @@
          ENDIF
       ENDIF
-
       !
       !                             !==  associated horizontal metrics  ==!
@@ -151 +149 @@
       e2_e1u(:,:) = e2u(:,:) / e1u(:,:)
       e1_e2v(:,:) = e1v(:,:) / e2v(:,:)
-      !
       !
       IF( ln_timing )   CALL timing_stop('dom_hgr')