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 6736 for branches/NERC/dev_r3874_FASTNEt/NEMOGCM/NEMO/LIM_SRC_2/limistate_2.F90 – NEMO

Ignore:
Timestamp:
2016-06-24T09:50:27+02:00 (8 years ago)
Author:
jamesharle
Message:

FASTNEt code modifications

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/NERC/dev_r3874_FASTNEt/NEMOGCM/NEMO/LIM_SRC_2/limistate_2.F90

    r3625 r6736  
    2727   USE iom 
    2828   USE in_out_manager 
    29    USE lib_fortran     ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined)   
    3029 
    3130   IMPLICIT NONE 
    … …  
    193192            IF(lwp) WRITE(numout,*) '                  ice state initialization with : Ice_initialization.nc' 
    194193             
     194#if defined key_lim2_initcd_alt1 
     195            CALL iom_get( inum_ice, jpdom_data, 'hicif', hicif )       
     196            CALL iom_get( inum_ice, jpdom_data, 'hsnif', hsnif )       
     197            CALL iom_get( inum_ice, jpdom_data, 'frld' , frld  )      
     198            CALL iom_get( inum_ice, jpdom_data, 'tbif1'   , tbif(:,:,1)  ) 
     199            CALL iom_get( inum_ice, jpdom_data, 'tbif2'   , tbif(:,:,2)  ) 
     200            CALL iom_get( inum_ice, jpdom_data, 'tbif3'   , tbif(:,:,3)  ) 
     201            CALL iom_get( inum_ice, jpdom_data, 'sist'   , sist  ) 
     202#elif defined key_lim2_initcd_alt2 
     203            CALL iom_get( inum_ice, jpdom_data, 'iicethic', hicif )       
     204            CALL iom_get( inum_ice, jpdom_data, 'isnowthi', hsnif )       
     205            CALL iom_get( inum_ice, jpdom_data, 'ileadfra' , frld  )      
     206            CALL iom_get( inum_ice, jpdom_data, 'isstempe'   , sist  ) 
     207            CALL iom_get( inum_ice, jpdom_unknown, 'iicetemp', tbif(1:nlci,1:nlcj,:),   & 
     208                 &        kstart = (/ mig(1),mjg(1),1 /), kcount = (/ nlci,nlcj,jplayersp1 /) ) 
     209#else 
    195210            CALL iom_get( inum_ice, jpdom_data, 'hicif', hicif )       
    196211            CALL iom_get( inum_ice, jpdom_data, 'hsnif', hsnif )       
    … …  
    199214            CALL iom_get( inum_ice, jpdom_unknown, 'tbif', tbif(1:nlci,1:nlcj,:),   & 
    200215                 &        kstart = (/ mig(1),mjg(1),1 /), kcount = (/ nlci,nlcj,jplayersp1 /) ) 
     216#endif          
    201217            ! put some values in the extra-halo... 
    202218            DO jj = nlcj+1, jpj   ;   tbif(1:nlci,jj,:) = tbif(1:nlci,nlej,:)   ;   END DO 
Note: See TracChangeset for help on using the changeset viewer.