Changeset 88 for trunk/NEMO/LIM_SRC/limhdf.F90

Timestamp:

2004-04-22T15:50:27+02:00 (20 years ago)

Author:

opalod

Message:

CT : UPDATE057 : # General syntax, alignement, comments corrections

# l_ctl alone replace the set (l_ctl .AND. lwp)
# Add of diagnostics which are activated when using l_ctl logical

File:

• trunk/NEMO/LIM_SRC/limhdf.F90 (modified) (4 diffs)

trunk/NEMO/LIM_SRC/limhdf.F90

@@ -1 +1 @@
 MODULE limhdf
-#if defined key_ice_lim
    !!======================================================================
    !!                    ***  MODULE limhdf   ***
-   !! LIM diffusion ice model : sea-ice variables horizontal diffusion
+   !! LIM ice model : horizontal diffusion of sea-ice quantities
    !!======================================================================
-
+#if defined key_ice_lim
+   !!----------------------------------------------------------------------
+   !!   'key_ice_lim'                                     LIM sea-ice model
    !!----------------------------------------------------------------------
    !!   lim_hdf  : diffusion trend on sea-ice variable
@@ -96 +97 @@
             DO ji = fs_2 , fs_jpim1   ! vector opt.
                zfact(ji,jj) = ( e2u(ji,jj) + e2u(ji-1,jj  ) + e1v(ji,jj) + e1v(ji,jj-1) ) &
-                             / ( e1t(ji,jj) * e2t(ji,jj) )
+                  &          / ( e1t(ji,jj) * e2t(ji,jj) )
             END DO
          END DO
@@ -144 +145 @@
 
          ! convergence test
-         zconv = 0.0
+         zconv = 0.e0
          DO jj = 2, jpjm1
             DO ji = 2, jpim1
@@ -165 +166 @@
 
       ptab(:,:) = ptab(:,:)
-      IF( l_ctl .AND. lwp ) THEN
-         WRITE(numout,*) ' lim_hdf  : ', SUM( ptab-ptab0 ), ' zconv= ', zconv, ' iter= ', iter
-      ENDIF
+
+      IF(l_ctl)   WRITE(numout,*) ' lim_hdf  : ', SUM( ptab-ptab0 ), ' zconv= ', zconv, ' iter= ', iter
 
    END SUBROUTINE lim_hdf
+
 #else
-   !!======================================================================
-   !!                       ***  MODULE limhdf   ***
-   !!                          no sea ice model
-   !!======================================================================
+   !!----------------------------------------------------------------------
+   !!   Default option          Dummy module           NO LIM sea-ice model
+   !!----------------------------------------------------------------------
 CONTAINS
    SUBROUTINE lim_hdf         ! Empty routine