Changeset 88 for trunk/NEMO/LIM_SRC/limthd_lac.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/limthd_lac.F90 (modified) (3 diffs)

trunk/NEMO/LIM_SRC/limthd_lac.F90

@@ -22 +22 @@
    PUBLIC lim_thd_lac     ! called by lim_thd
 
-  !! * Module variables
-     REAL(wp)  ::            &  ! constant values
-         epsi20 = 1e-20   ,  &
-         epsi13 = 1e-13   ,  &
-         zzero  = 0.0     ,  &
-         zone   = 1.0
+   !! * Module variables
+   REAL(wp)  ::            &  ! constant values
+      epsi20 = 1.e-20  ,  &
+      epsi13 = 1.e-13  ,  &
+      zzero  = 0.e0    ,  &
+      zone   = 1.e0
    !!----------------------------------------------------------------------
    !!   LIM 2.0 , UCL-LODYC-IPSL  (2003)
@@ -33 +33 @@
 CONTAINS
     
-    SUBROUTINE lim_thd_lac( kideb, kiut )
+   SUBROUTINE lim_thd_lac( kideb, kiut )
       !!-------------------------------------------------------------------
       !!               ***   ROUTINE lim_thd_lac  ***
@@ -63 +63 @@
       !!      Fichefet T. and M. Maqueda 1997, J. Geo. Res., 102(C6), 
       !!                                                12609 -12646   
-      !!
       !! History :
       !!   1.0  !  01-04 (LIM)  original code