Changeset 57


Ignore:
Timestamp:
10/26/12 02:23:06 (12 years ago)
Author:
smasson
Message:

give proper variable names in zdftmx

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/NEMOGCM/NEMO/OPA_SRC/ZDF/zdftmx.F90

    r7 r57  
    395395      ! read M2 tidal energy flux : W/m2  ( zem2 < 0 ) 
    396396      CALL iom_open('M2rowdrg',inum) 
    397       CALL iom_get (inum, jpdom_data, 'field',zem2,1) !  
     397      CALL iom_get (inum, jpdom_data, 'M2',zem2,1) !  
    398398      CALL iom_close(inum) 
    399399 
    400400      ! read K1 tidal energy flux : W/m2  ( zek1 < 0 ) 
    401401      CALL iom_open('K1rowdrg',inum) 
    402       CALL iom_get (inum, jpdom_data, 'field',zek1,1) !  
     402      CALL iom_get (inum, jpdom_data, 'K1',zek1,1) !  
    403403      CALL iom_close(inum) 
    404404  
Note: See TracChangeset for help on using the changeset viewer.