Changeset 239 for trunk/NEMO/OPA_SRC/SOL

Timestamp:

2005-03-22T18:55:20+01:00 (19 years ago)

Author:

opalod

Message:

CT : UPDATE172 : remove all direct acces modules and the related cpp key key_fdir

Location:

trunk/NEMO/OPA_SRC/SOL

Files:

• solisl.F90 (modified) (4 diffs)
• solisl_fdir.h90 (deleted)

trunk/NEMO/OPA_SRC/SOL/solisl.F90

@@ -536 +536 @@
    END SUBROUTINE isl_pth
 
-# if defined key_fdir
-   !!----------------------------------------------------------------------
-   !!   'key_fdir' :                                     direct access file
-   !!----------------------------------------------------------------------
-#  include "solisl_fdir.h90"
-
-# else
    !!----------------------------------------------------------------------
    !!   Default option :                                        NetCDF file
@@ -692 +685 @@
       CALL linrg( jpisl, aisl, jpisl, aislm1, jpisl )
 
-! 2.2 Control print
-
+      ! 2.2 Control print
+      
       IF(lwp) THEN
          WRITE(numout,*)
@@ -706 +699 @@
       
 
-! 3. Output of aisl and aislm1 in numisl
-! --------------------------------------
+      ! 3. Output of aisl and aislm1 in numisl
+      ! --------------------------------------
 
       CALL restput( numisl, 'aisl'  , jpisl, jpisl, 1, 0, aisl   )
@@ -1160 +1153 @@
    END SUBROUTINE isl_bsf
 
-#endif
 
    SUBROUTINE isl_dyn_spg