Changeset 5605 for branches/NERC/dev_r5589_marine_glacier_termini/NEMOGCM/NEMO/OPA_SRC/DOM/domhgr.F90

Timestamp:

2015-07-16T20:05:07+02:00 (9 years ago)

Author:

mathiot

Message:

Marine glacier termini: initial commit

File:

• branches/NERC/dev_r5589_marine_glacier_termini/NEMOGCM/NEMO/OPA_SRC/DOM/domhgr.F90 (modified) (2 diffs)

branches/NERC/dev_r5589_marine_glacier_termini/NEMOGCM/NEMO/OPA_SRC/DOM/domhgr.F90

@@ -318 +318 @@
          !                          ==========
          glam0 = 0.e0
-         gphi0 = - ppe2_m * 1.e-3
+         !gphi0 = - ppe2_m * 1.e-3  ! need to be restore before submission into the trunk
+         gphi0 = ppgphi0 - ppe2_m * 1.e-3
          
 #if defined key_agrif 
@@ -649 +650 @@
       CALL iom_close( inum )
       
-! need to be define for the extended grid south of -80S
-! some point are undefined but you need to have e1 and e2 .NE. 0
-      WHERE (e1t==0.0_wp)
-         e1t=1.0e2
-      END WHERE
-      WHERE (e1v==0.0_wp)
-         e1v=1.0e2
-      END WHERE
-      WHERE (e1u==0.0_wp)
-         e1u=1.0e2
-      END WHERE
-      WHERE (e1f==0.0_wp)
-         e1f=1.0e2
-      END WHERE
-      WHERE (e2t==0.0_wp)
-         e2t=1.0e2
-      END WHERE
-      WHERE (e2v==0.0_wp)
-         e2v=1.0e2
-      END WHERE
-      WHERE (e2u==0.0_wp)
-         e2u=1.0e2
-      END WHERE
-      WHERE (e2f==0.0_wp)
-         e2f=1.0e2
-      END WHERE
-       
     END SUBROUTINE hgr_read