Changeset 5053 for branches/2015/dev_r5044_CNRS_LIM3CLEAN/NEMOGCM/NEMO/LIM_SRC_3/limupdate1.F90

Timestamp:

2015-02-03T18:11:02+01:00 (9 years ago)

Author:

clem

Message:

LIM3 cleaning continues. No change in the physics besides the introduction of the monocategory sea ice

File:

• branches/2015/dev_r5044_CNRS_LIM3CLEAN/NEMOGCM/NEMO/LIM_SRC_3/limupdate1.F90 (modified) (3 diffs)

branches/2015/dev_r5044_CNRS_LIM3CLEAN/NEMOGCM/NEMO/LIM_SRC_3/limupdate1.F90

@@ -59 +59 @@
 CONTAINS
 
-   SUBROUTINE lim_update1
+   SUBROUTINE lim_update1( kt )
       !!-------------------------------------------------------------------
       !!               ***  ROUTINE lim_update1  ***
@@ -67 +67 @@
       !!                
       !!---------------------------------------------------------------------
+      INTEGER, INTENT(in) :: kt    ! number of iteration
       INTEGER  ::   ji, jj, jk, jl   ! dummy loop indices
       INTEGER  ::   i_ice_switch
@@ -76 +77 @@
 
       IF( ln_limdyn ) THEN 
+
+      IF( kt == nit000 .AND. lwp ) THEN
+         WRITE(numout,*) ' lim_update1 ' 
+         WRITE(numout,*) ' ~~~~~~~~~~~ '
+      ENDIF
 
       ! conservation test