Changeset 895 for trunk/NEMO/LIM_SRC_3

Timestamp:

2008-04-21T17:32:02+02:00 (16 years ago)

Author:

rblod

Message:

Fix small bugs in sea-ice (previous commit) and old flyspray: 189, 185, 161

Location:

trunk/NEMO/LIM_SRC_3

Files:

• limdia.F90 (modified) (1 diff)
• limupdate.F90 (modified) (1 diff)

trunk/NEMO/LIM_SRC_3/limdia.F90

@@ -579 +579 @@
        clname = 'ice.evolu'
        irecl = ( jpchinf + 1 ) * nvinfo 
-       CALL ctlopn( numevo_ice, clname, 'UNKNOWN', 'FORMATTED', 'SEQUENTIAL',
+       CALL ctlopn( numevo_ice, clname, 'UNKNOWN', 'FORMATTED', 'SEQUENTIAL',    &
           &         irecl, numout, lwp, 1 )
 

trunk/NEMO/LIM_SRC_3/limupdate.F90

@@ -52 +52 @@
    !! * Accessibility
    PUBLIC lim_update ! routine called by ice_step
+
+   !! * Substitutions
+#  include "vectopt_loop_substitute.h90"
 
    !! * Module variables