New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 838 for trunk/NEMO – NEMO

Changeset 838 for trunk/NEMO


Ignore:
Timestamp:
2008-03-10T18:07:11+01:00 (16 years ago)
Author:
ctlod
Message:

Add sxyice(:,:,:) and sye(:,:,:,:) missing fields in sea-ice restart files to ensure the restartability, see ticket:#75

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/NEMO/LIM_SRC_3/limrst.F90

    r836 r838  
    179179         z2d(:,:) = syyice(:,:,jl) 
    180180         CALL iom_rstput( iter, nitrst, numriw, znam , z2d ) 
     181         znam = 'sxyice'//'_htc'//zchar 
     182         z2d(:,:) = sxyice(:,:,jl) 
     183         CALL iom_rstput( iter, nitrst, numriw, znam , z2d ) 
    181184         znam = 'sxsn'//'_htc'//zchar 
    182185         z2d(:,:) = sxsn(:,:,jl) 
    … …  
    268271            znam = 'sxe'//'_il'//zchar1//'_htc'//zchar 
    269272            z2d(:,:) = sxe(:,:,jk,jl) 
     273            CALL iom_rstput( iter, nitrst, numriw, znam , z2d ) 
     274            znam = 'sye'//'_il'//zchar1//'_htc'//zchar 
     275            z2d(:,:) = sye(:,:,jk,jl) 
    270276            CALL iom_rstput( iter, nitrst, numriw, znam , z2d ) 
    271277            znam = 'sxxe'//'_il'//zchar1//'_htc'//zchar 
    … …  
    527533         CALL iom_get( numrir, jpdom_autoglo, znam , z2d ) 
    528534         syyice(:,:,jl) = z2d(:,:) 
     535         znam = 'sxyice'//'_htc'//zchar 
     536         CALL iom_get( numrir, jpdom_autoglo, znam , z2d ) 
     537         sxyice(:,:,jl) = z2d(:,:) 
    529538         znam = 'sxsn'//'_htc'//zchar 
    530539         CALL iom_get( numrir, jpdom_autoglo, znam , z2d ) 
    … …  
    617626            CALL iom_get( numrir, jpdom_autoglo, znam , z2d ) 
    618627            sxe(:,:,jk,jl) = z2d(:,:) 
     628            znam = 'sye'//'_il'//zchar1//'_htc'//zchar 
     629            CALL iom_get( numrir, jpdom_autoglo, znam , z2d ) 
     630            sye(:,:,jk,jl) = z2d(:,:) 
    619631            znam = 'sxxe'//'_il'//zchar1//'_htc'//zchar 
    620632            CALL iom_get( numrir, jpdom_autoglo, znam , z2d ) 
Note: See TracChangeset for help on using the changeset viewer.