Changeset 3983 for trunk/NEMOGCM/NEMO/OPA_SRC/IOM/iom.F90
- Timestamp:
- 2013-07-19T18:22:47+02:00 (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/NEMO/OPA_SRC/IOM/iom.F90
r3971 r3983 31 31 USE sbc_oce, ONLY : nn_fsbc ! ocean space and time domain 32 32 USE trc_oce, ONLY : nn_dttrc ! !: frequency of step on passive tracers 33 USE icb_oce, ONLY : class_num ! !: iceberg classes 33 34 USE domngb ! ocean space and time domain 34 35 USE phycst ! physical constants … … 99 100 clname = "nemo" 100 101 IF( TRIM(Agrif_CFixed()) /= '0' ) clname = TRIM(Agrif_CFixed())//"_"//TRIM(clname) 101 # if defined key_mpp_mpi102 # if defined key_mpp_mpi 102 103 CALL xios_context_initialize(TRIM(clname), mpi_comm_opa) 103 # else104 # else 104 105 CALL xios_context_initialize(TRIM(clname), 0) 105 # endif106 # endif 106 107 CALL iom_swap 107 108 … … 128 129 CALL iom_set_axis_attr( "depthw", gdepw_0 ) 129 130 # if defined key_floats 130 CALL iom_set_axis_attr( "nfloat", ( ji, ji=1,nfloat) )131 CALL iom_set_axis_attr( "nfloat", (/ (REAL(ji,wp), ji=1,nfloat) /) ) 131 132 # endif 133 CALL iom_set_axis_attr( "icbcla", class_num ) 132 134 133 135 ! automatic definitions of some of the xml attributs
Note: See TracChangeset
for help on using the changeset viewer.