Changeset 5825 for branches/2015/dev_r5056_CMCC4_simplification/NEMOGCM/NEMO/OPA_SRC/DIA/diaptr.F90

Timestamp:

2015-10-23T11:57:19+02:00 (9 years ago)

Author:

diovino

Message:

 

File:

• branches/2015/dev_r5056_CMCC4_simplification/NEMOGCM/NEMO/OPA_SRC/DIA/diaptr.F90 (modified) (5 diffs)

branches/2015/dev_r5056_CMCC4_simplification/NEMOGCM/NEMO/OPA_SRC/DIA/diaptr.F90

@@ -567 +567 @@
       INTEGER            ::   inum                                    ! temporary logical unit
 #endif
-      REAL(wp)           ::   zsto, zout, zdt, zjulian                ! temporary scalars
+      REAL(wp)           ::   zsto, zout, zjulian                ! temporary scalars
       !!
       REAL(wp), POINTER, DIMENSION(:)   ::   zphi, zfoo    ! 1D workspace
@@ -584 +584 @@
       IF( kt == nit000 ) THEN
          niter = ( nit000 - 1 ) / nn_fptr
-         zdt = rdt
          !
          IF(lwp) THEN
@@ -640 +639 @@
             ! ----------------
             ! Define frequency of output and means
-            zsto = nn_fptr * zdt
+            zsto = nn_fptr * rdt
             IF( ln_mskland )   THEN    ! put 1.e+20 on land (very expensive!!)
                clop      = "ave(only(x))"
@@ -649 +648 @@
             ENDIF
 
-            zout = nn_fwri * zdt
+            zout = nn_fwri * rdt
             zfoo(1:jpj) = 0._wp
 
@@ -670 +669 @@
             ! Horizontal grid : zphi()
             CALL histbeg(clhstnam, 1, zfoo, jpj, zphi,   &
-               1, 1, 1, jpj, niter, zjulian, zdt*nn_fptr, nhoridz, numptr, domain_id=nidom_ptr)
+               1, 1, 1, jpj, niter, zjulian, rdt*nn_fptr, nhoridz, numptr, domain_id=nidom_ptr)
             ! Vertical grids : gdept_1d, gdepw_1d
             CALL histvert( numptr, "deptht", "Vertical T levels",   &