Changeset 1872
- Timestamp:
- 2010-05-16T16:07:18+02:00 (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/DEV_1821_example/NEMO/OPA_SRC/module_example
r1146 r1872 41 41 REAL(wp) :: var ! var - - 42 42 REAL(wp), DIMENSION(jpi,jpj,jpk) :: array ! array - - 43 44 TYPE :: FLD_E !: field informations 45 CHARACTER(len = 256) :: clname ! clname description 46 INTEGER :: nfreqh ! nfreqh description 47 END TYPE FLD_E 48 49 TYPE(FLD) :: sn_ex 43 50 44 51 !! * Substitutions … … 152 159 ENDIF 153 160 ! 161 sn_ex%clname ='toto' 162 sn_ex%nfreqh = 2 163 154 164 END SUBROUTINE exa_mpl_init 155 165
Note: See TracChangeset
for help on using the changeset viewer.