Changeset 1196


Ignore:
Timestamp:
2008-09-19T09:07:00+02:00 (12 years ago)
Author:
ctlod
Message:

change jpdom_local into jpdom_autoglo in the iom_get call sequence, see ticket: #245

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMO/OPA_SRC/SBC/sbcssm.F90

    r1156 r1196  
    7373            ! 
    7474            IF( ln_rstart .AND. iom_varid( numror, 'nn_fsbc' ) > 0 ) THEN  
    75                CALL iom_get( numror             , 'nn_fsbc', zf_sbc )   ! sbc frequency of previous run 
    76                CALL iom_get( numror, jpdom_local, 'ssu_m'  , ssu_m  )   ! sea surface mean velocity    (T-point) 
    77                CALL iom_get( numror, jpdom_local, 'ssv_m'  , ssv_m  )   !   "         "    velocity    (V-point) 
    78                CALL iom_get( numror, jpdom_local, 'sst_m'  , sst_m  )   !   "         "    temperature (T-point) 
    79                CALL iom_get( numror, jpdom_local, 'sss_m'  , sss_m  )   !   "         "    salinity    (T-point) 
     75               CALL iom_get( numror               , 'nn_fsbc', zf_sbc )   ! sbc frequency of previous run 
     76               CALL iom_get( numror, jpdom_autoglo, 'ssu_m'  , ssu_m  )   ! sea surface mean velocity    (T-point) 
     77               CALL iom_get( numror, jpdom_autoglo, 'ssv_m'  , ssv_m  )   !   "         "    velocity    (V-point) 
     78               CALL iom_get( numror, jpdom_autoglo, 'sst_m'  , sst_m  )   !   "         "    temperature (T-point) 
     79               CALL iom_get( numror, jpdom_autoglo, 'sss_m'  , sss_m  )   !   "         "    salinity    (T-point) 
    8080               ! 
    8181               IF( zf_sbc /= REAL( nn_fsbc, wp ) ) THEN      ! nn_fsbc has changed between 2 runs 
Note: See TracChangeset for help on using the changeset viewer.