Changeset 4689 for trunk/NEMOGCM/NEMO/OPA_SRC/BDY/bdydta.F90

Timestamp:

2014-06-25T01:40:18+02:00 (10 years ago)

Author:

clem

Message:

new version of LIM3 with perfect conservation of heat, see ticket #1352

File:

• trunk/NEMOGCM/NEMO/OPA_SRC/BDY/bdydta.F90 (modified) (2 diffs)

trunk/NEMOGCM/NEMO/OPA_SRC/BDY/bdydta.F90

@@ -676 +676 @@
                CALL iom_close ( inum )
                !CALL fld_clopn ( bn_a_i, nyear, nmonth, nday, ldstop=.TRUE. )
-               !CALL iom_open ( bn_a_i %clname, inum )
+               !CALL iom_open ( bn_a_i%clname, inum )
                !id1 = iom_varid ( bn_a_i%num, bn_a_i%clvar, kdimsz=zdimsz, kndims=zndims, ldstop = .FALSE. )
                 IF ( zndims == 4 ) THEN
@@ -907 +907 @@
    !!==============================================================================
 END MODULE bdydta
-
-