Changeset 6579 for branches/2016/dev_r6409_SIMPLIF_2_usrdef/NEMOGCM/NEMO/OPA_SRC/DOM/domhgr.F90

Timestamp:

2016-05-19T16:12:37+02:00 (8 years ago)

Author:

flavoni

Message:

add module for istate in usr_def module , see ticket #1692

File:

• branches/2016/dev_r6409_SIMPLIF_2_usrdef/NEMOGCM/NEMO/OPA_SRC/DOM/domhgr.F90 (modified) (3 diffs)

branches/2016/dev_r6409_SIMPLIF_2_usrdef/NEMOGCM/NEMO/OPA_SRC/DOM/domhgr.F90

@@ -290 +290 @@
             !
             IF( ie1e2u_v == 0 ) THEN   ! e1e2u and e1e2v have not been read: compute them
-               !                          ! e2u and e1v does not include a
-               !                          reduction in some strait: apply reduction
+               !                       ! e2u and e1v does not include a reduction in some strait: apply reduction
                e1e2u (:,:) = e1u(:,:) * e2u(:,:)
                e1e2v (:,:) = e1v(:,:) * e2v(:,:)
@@ -301 +300 @@
             &                 gphit  , gphiu , gphiv , gphif ,    &
             &                 e1t    , e1u   , e1v   , e1f   ,    &
-            &                 e2t    , e2u   , e2v   , e2f   ,    & 
+            &                 e2t    , e2u   , e2v   , e2f   ,    &
             &                 ie1e2u_v  )
          !
@@ -331 +330 @@
       e2_e1u(:,:) = e2u(:,:) / e1u(:,:)
       e1_e2v(:,:) = e1v(:,:) / e2v(:,:)
-
-      IF( lwp .AND. nn_print >=1 .AND. .NOT.ln_rstart ) THEN      ! Control print : Grid informations (if not restart)
-         WRITE(numout,*)
-         WRITE(numout,*) '          longitude and e1 scale factors'
-         WRITE(numout,*) '          ------------------------------'
-         WRITE(numout,9300) ( ji, glamt(ji,1), glamu(ji,1),   &
-            glamv(ji,1), glamf(ji,1),   &
-            e1t(ji,1), e1u(ji,1),   &
-            e1v(ji,1), e1f(ji,1), ji = 1, jpi,10)
-9300     FORMAT( 1x, i4, f8.2,1x, f8.2,1x, f8.2,1x, f8.2, 1x,    &
-            f19.10, 1x, f19.10, 1x, f19.10, 1x, f19.10 )
-            !
-         WRITE(numout,*)
-         WRITE(numout,*) '          latitude and e2 scale factors'
-         WRITE(numout,*) '          -----------------------------'
-         WRITE(numout,9300) ( jj, gphit(1,jj), gphiu(1,jj),   &
-            &                     gphiv(1,jj), gphif(1,jj),   &
-            &                     e2t  (1,jj), e2u  (1,jj),   &
-            &                     e2v  (1,jj), e2f  (1,jj), jj = 1, jpj, 10 )
-      ENDIF