Changeset 881 for branches/dev_001_SBC/NEMO/LIM_SRC/limwri_dimg.h90

Timestamp:

2008-04-08T11:45:52+02:00 (16 years ago)

Author:

ctlod

Message:

dev_001_SBC: Step I: change cpp ket name key_ice_lim into key_lim2 & change names inside modules with extension _2, see ticket: #110

File:

• branches/dev_001_SBC/NEMO/LIM_SRC/limwri_dimg.h90 (modified) (4 diffs)

branches/dev_001_SBC/NEMO/LIM_SRC/limwri_dimg.h90

@@ -1 @@
-    SUBROUTINE lim_wri(kt)
+    SUBROUTINE lim_wri_2(kt)
    !!----------------------------------------------------------------------
    !!  LIM 2.0, UCL-LOCEAN-IPSL (2005)
@@ -52 +52 @@
     IF ( kt == nit000 ) THEN 
 
-       CALL lim_wri_init 
+       CALL lim_wri_init_2 
 
        nwf = 0 
@@ -58 +58 @@
 
        IF (lwp ) THEN
-          WRITE(numout,*) 'lim_wri : Write ice outputs in dimg'
+          WRITE(numout,*) 'lim_wri_2 : Write ice outputs in dimg'
           WRITE(numout,*) '~~~~~~~~'
           WRITE(numout,*) '   According to namelist_ice, following fields saved:'
@@ -203 +203 @@
        END IF     !  MOD(kt+nn_fsbc-1-nit000+1, nwrite == 0 ) !
 
-     END SUBROUTINE lim_wri
+     END SUBROUTINE lim_wri_2