Changeset 1872 for branches/DEV_1821_example/NEMO/OPA_SRC/module_example

Timestamp:

2010-05-16T16:07:18+02:00 (14 years ago)

Author:

nemodeveloper

Message:

add a structure in the module_example, see ticket #672

File:

• branches/DEV_1821_example/NEMO/OPA_SRC/module_example (modified) (2 diffs)

branches/DEV_1821_example/NEMO/OPA_SRC/module_example

@@ -41 +41 @@
    REAL(wp)                         ::   var     ! var         -                -
    REAL(wp), DIMENSION(jpi,jpj,jpk) ::   array   ! array       -                -
+
+   TYPE ::   FLD_E                !:  field informations
+      CHARACTER(len = 256) ::   clname      ! clname description
+      INTEGER              ::   nfreqh      ! nfreqh description
+   END TYPE FLD_E
+
+   TYPE(FLD) :: sn_ex
 
    !! * Substitutions
@@ -152 +159 @@
       ENDIF
       !
+      sn_ex%clname ='toto'
+      sn_ex%nfreqh = 2
+      
    END SUBROUTINE exa_mpl_init