Changeset 1872


Ignore:
Timestamp:
2010-05-16T16:07:18+02:00 (10 years ago)
Author:
nemodeveloper
Message:

add a structure in the module_example, see ticket #672

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/DEV_1821_example/NEMO/OPA_SRC/module_example

    r1146 r1872  
    4141   REAL(wp)                         ::   var     ! var         -                - 
    4242   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 
    4350 
    4451   !! * Substitutions 
     
    152159      ENDIF 
    153160      ! 
     161      sn_ex%clname ='toto' 
     162      sn_ex%nfreqh = 2 
     163       
    154164   END SUBROUTINE exa_mpl_init 
    155165 
Note: See TracChangeset for help on using the changeset viewer.