Changeset 8781


Ignore:
Timestamp:
2017-11-22T11:32:42+01:00 (3 years ago)
Author:
clem
Message:

make Jules coupling restartable by adding cnd_ice and t1_ice into restart file

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/dev_r8183_ICEMODEL_svn_removed/NEMOGCM/NEMO/LIM_SRC_3/icerst.F90

    r8752 r8781  
    145145         z2d(:,:) = t_su(:,:,jl) 
    146146         CALL iom_rstput( iter, nitrst, numriw, znam , z2d ) ! t_su 
     147         znam = 'cnd_ice'//'_htc'//zchar 
     148         z2d(:,:) = cnd_ice(:,:,jl) 
     149         CALL iom_rstput( iter, nitrst, numriw, znam , z2d ) ! cnd_ice 
     150         znam = 't1_ice'//'_htc'//zchar 
     151         z2d(:,:) = t1_ice(:,:,jl) 
     152         CALL iom_rstput( iter, nitrst, numriw, znam , z2d ) ! t1_ice 
    147153      END DO 
    148154 
     
    243249         CALL iom_get( numrir, jpdom_autoglo, znam , z2d ) 
    244250         t_su(:,:,jl) = z2d(:,:) 
     251         znam = 'cnd_ice'//'_htc'//zchar 
     252         CALL iom_get( numrir, jpdom_autoglo, znam , z2d ) 
     253         cnd_ice(:,:,jl) = z2d(:,:) 
     254         znam = 't1_ice'//'_htc'//zchar 
     255         CALL iom_get( numrir, jpdom_autoglo, znam , z2d ) 
     256         t1_ice(:,:,jl) = z2d(:,:) 
    245257      END DO 
    246258 
Note: See TracChangeset for help on using the changeset viewer.