Changeset 1412 for trunk/NEMO/OPA_SRC/IOM/iom.F90
- Timestamp:
- 2009-04-22T19:17:00+02:00 (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/IOM/iom.F90
r1409 r1412 26 26 USE iom_rstdimg ! restarts access direct format "dimg" style... 27 27 28 #if defined key_io server28 #if defined key_iomput 29 29 USE mod_event_client 30 30 # endif … … 38 38 PRIVATE iom_g0d, iom_g1d, iom_g2d, iom_g3d, iom_get_123d 39 39 PRIVATE iom_p2d, iom_p3d 40 #if defined key_io server40 #if defined key_iomput 41 41 PRIVATE iom_init_chkcpp 42 42 PRIVATE set_grid … … 52 52 MODULE PROCEDURE iom_p2d, iom_p3d 53 53 END INTERFACE 54 #if defined key_io server54 #if defined key_iomput 55 55 INTERFACE iom_setkt 56 56 MODULE PROCEDURE event__set_timestep … … 74 74 !!---------------------------------------------------------------------- 75 75 REAL(wp), INTENT(in) :: pjulian !: julian day at nit000 = 0 76 #if defined key_io server76 #if defined key_iomput 77 77 !!---------------------------------------------------------------------- 78 78 ! read the xml file … … 307 307 i_s = 1 308 308 i_e = jpmax_files 309 #if defined key_io server309 #if defined key_iomput 310 310 CALL event__stop_ioserver 311 311 #endif … … 896 896 CHARACTER(LEN=*) , INTENT(in) :: cdname 897 897 REAL(wp), DIMENSION(jpi,jpj), INTENT(in) :: pfield2d 898 #if defined key_io server898 #if defined key_iomput 899 899 CALL event__write_field2D( cdname, pfield2d(nldi:nlei, nldj:nlej) ) 900 900 #endif … … 904 904 CHARACTER(LEN=*) , INTENT(in) :: cdname 905 905 REAL(wp), DIMENSION(jpi,jpj,jpk), INTENT(in) :: pfield3d 906 #if defined key_io server906 #if defined key_iomput 907 907 CALL event__write_field3D( cdname, pfield3d(nldi:nlei, nldj:nlej, :) ) 908 908 #endif … … 911 911 912 912 913 #if defined key_io server913 #if defined key_iomput 914 914 915 915 SUBROUTINE set_grid( cdname, plon, plat )
Note: See TracChangeset
for help on using the changeset viewer.