Changeset 1857 for branches/DEV_r1837_mass_heat_salt_fluxes/NEMO/LIM_SRC_2/limrst_2.F90

Timestamp:

2010-05-03T13:59:46+02:00 (14 years ago)

Author:

gm

Message:

ticket:#665 Reverting previous commit and going back to revision 1850

File:

• branches/DEV_r1837_mass_heat_salt_fluxes/NEMO/LIM_SRC_2/limrst_2.F90 (modified) (7 diffs)

branches/DEV_r1837_mass_heat_salt_fluxes/NEMO/LIM_SRC_2/limrst_2.F90

@@ -2 +2 @@
    !!======================================================================
    !!                     ***  MODULE  limrst_2  ***
-   !! LIM-2 ice model : open/read/write the restart file
+   !! Ice restart :  write the ice restart file
    !!======================================================================
-   !! History :  2.0  ! 2001-04  (C. Ethe, G. Madec)  Original code
-   !!                 ! 2006-07  (S. Masson)  use IOM for restart read/write
+   !! History :  2.0  !  01-04  (C. Ethe, G. Madec)  Original code
+   !!                 !  06-07  (S. Masson)  use IOM for restart read/write
    !!----------------------------------------------------------------------
 #if defined key_lim2
    !!----------------------------------------------------------------------
    !!   'key_lim2' :                                  LIM 2.0 sea-ice model
+   !!----------------------------------------------------------------------
    !!----------------------------------------------------------------------
    !!   lim_rst_opn_2   : open ice restart file
@@ -19 +20 @@
    USE sbc_oce
    USE sbc_ice
+
    USE in_out_manager
    USE iom
@@ -33 +35 @@
 
    !!----------------------------------------------------------------------
-   !! NEMO/LIM 3.3,  UCL-LOCEAN-IPSL (2010) 
+   !!   LIM 2.0,  UCL-LOCEAN-IPSL (2006) 
    !! $Id$
    !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt)
@@ -82 +84 @@
    END SUBROUTINE lim_rst_opn_2
 
-
    SUBROUTINE lim_rst_write_2( kt )
       !!----------------------------------------------------------------------
@@ -90 +91 @@
       !!----------------------------------------------------------------------
       INTEGER, INTENT(in) ::   kt   ! number of iteration
-      !!
+      !
       INTEGER ::   iter   ! kt + nn_fsbc -1
       !!----------------------------------------------------------------------
@@ -180 +181 @@
       ENDIF
 
-      IF( jprstlib == jprstdimg ) THEN
+      IF ( jprstlib == jprstdimg ) THEN
         ! eventually read netcdf file (monobloc)  for restarting on different number of processors
         ! if {cn_icerst_in}.nc exists, then set jlibalt to jpnf90
@@ -187 +188 @@
       ENDIF
 
-      CALL iom_open( cn_icerst_in, numrir, kiolib = jlibalt )
+      CALL iom_open ( cn_icerst_in, numrir, kiolib = jlibalt )
 
       CALL iom_get( numrir, 'kt_ice' , ziter )