Changeset 1359 for trunk/NEMO/OPA_SRC/opa.F90
- Timestamp:
- 2009-03-31T14:36:28+02:00 (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/opa.F90
r1226 r1359 68 68 USE step ! OPA time-stepping (stp routine) 69 69 #if defined key_oasis3 70 USE cpl_oasis3 ! OASIS3 coupling (to ECHAM5)70 USE cpl_oasis3 ! OASIS3 coupling 71 71 #elif defined key_oasis4 72 USE cpl_oasis4 ! OASIS4 coupling ( to ECHAM5)72 USE cpl_oasis4 ! OASIS4 coupling (not working) 73 73 #endif 74 74 USE dynspg_oce ! Control choice of surface pressure gradient schemes … … 79 79 80 80 USE trcini ! Initialization of the passive tracers 81 USE iom 82 #if defined key_ioserver 83 USE io_interface 84 #endif 81 85 82 86 IMPLICIT NONE … … 172 176 !! 173 177 !!---------------------------------------------------------------------- 174 #if defined key_oasis3 || defined key_oasis4 178 #if defined key_oasis3 || defined key_oasis4 || defined key_ioserver 175 179 INTEGER :: localComm 176 180 #endif … … 209 213 call cpl_prism_init(localComm) 210 214 ! Nodes selection 215 narea = mynode(localComm) 216 #elif key_ioserver 217 CALL init_ioserver(localcomm, .FALSE.) 211 218 narea = mynode(localComm) 212 219 #else … … 283 290 284 291 #if defined key_top 285 CALL trc_ini 292 CALL trc_ini ! Passive tracers 286 293 #endif 287 294 288 295 CALL dia_ptr_init ! Poleward TRansports initialization 296 297 CALL iom_init( fjulday - adatrj ) ! iom_put initialization 289 298 290 299 ! ! =============== ! … … 437 446 IF ( lk_mpp ) CALL mppsync 438 447 439 ! 1. Unit close440 ! -------------441 442 448 CLOSE( numnam ) ! namelist 443 449 CLOSE( numout ) ! standard model output file 444 450 445 451 IF(lwp) CLOSE( numstp ) ! time-step file 446 IF(lwp) CLOSE( numsol ) 452 IF(lwp) CLOSE( numsol ) ! solver file 453 454 CALL iom_close ! close all input/output files 447 455 448 456 END SUBROUTINE opa_closefile
Note: See TracChangeset
for help on using the changeset viewer.