Changeset 1359 for trunk/NEMO/OPA_SRC/opa.F90

Timestamp:

2009-03-31T14:36:28+02:00 (15 years ago)

Author:

smasson

Message:

first implementation of iom_put, see ticket:387

File:

• trunk/NEMO/OPA_SRC/opa.F90 (modified) (6 diffs)

trunk/NEMO/OPA_SRC/opa.F90

@@ -68 +68 @@
    USE step            ! OPA time-stepping                  (stp     routine)
 #if defined key_oasis3
-   USE cpl_oasis3      ! OASIS3 coupling (to ECHAM5)
+   USE cpl_oasis3      ! OASIS3 coupling
 #elif defined key_oasis4
-   USE cpl_oasis4      ! OASIS4 coupling (to ECHAM5)
+   USE cpl_oasis4      ! OASIS4 coupling (not working)
 #endif
    USE dynspg_oce      ! Control choice of surface pressure gradient schemes
@@ -79 +79 @@
 
    USE trcini          ! Initialization of the passive tracers
+   USE iom
+#if defined key_ioserver
+   USE io_interface
+#endif
 
    IMPLICIT NONE
@@ -172 +176 @@
       !!
       !!----------------------------------------------------------------------
-#if defined key_oasis3 || defined key_oasis4
+#if defined key_oasis3 || defined key_oasis4 || defined key_ioserver
       INTEGER :: localComm
 #endif
@@ -209 +213 @@
       call cpl_prism_init(localComm)
       ! Nodes selection
+      narea = mynode(localComm)
+#elif key_ioserver
+      CALL init_ioserver(localcomm, .FALSE.)
       narea = mynode(localComm)
 #else
@@ -283 +290 @@
 
 #if defined key_top
-      CALL trc_ini                           ! Passive tracers
+      CALL trc_ini                          ! Passive tracers
 #endif
 
       CALL dia_ptr_init                     ! Poleward TRansports initialization
+
+      CALL iom_init( fjulday - adatrj )     ! iom_put initialization
 
       !                                     ! =============== !
@@ -437 +446 @@
       IF ( lk_mpp ) CALL mppsync
 
-      ! 1. Unit close
-      ! -------------
-
       CLOSE( numnam )           ! namelist
       CLOSE( numout )           ! standard model output file
 
       IF(lwp) CLOSE( numstp )   ! time-step file
-      IF(lwp) CLOSE( numsol )
+      IF(lwp) CLOSE( numsol )   ! solver file
+
+      CALL iom_close            ! close all input/output files
 
    END SUBROUTINE opa_closefile