Ignore:
Timestamp:
2015-06-01T18:59:09+02:00 (5 years ago)
Author:
mathiot
Message:

ISOMIP config code removed (mv to unsupported configuration); correction of bug about initialisation of top friction (ISF only), about coastline modification if ISF activated and top and bottom e3uw if ISF.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMOGCM/NEMO/OPA_SRC/DOM/istate.F90

    r5163 r5332  
    110110         ELSEIF( cp_cfg == 'gyre' ) THEN          
    111111            CALL istate_gyre                     ! GYRE  configuration : start from pre-defined T-S fields 
    112         ELSEIF( cp_cfg == 'isomip' .OR. cp_cfg == 'isomip2') THEN 
    113             IF(lwp) WRITE(numout,*) 'Initialization of T+S for ISOMIP domain'  
    114             tsn(:,:,:,jp_tem)=-1.9*tmask(:,:,:)          ! ISOMIP configuration : start from constant T+S fields  
    115             tsn(:,:,:,jp_sal)=34.4*tmask(:,:,:) 
    116             tsb(:,:,:,:)=tsn(:,:,:,:)   
    117112         ELSE                                    ! Initial T-S, U-V fields read in files 
    118113            IF ( ln_tsd_init ) THEN              ! read 3D T and S data at nit000 
Note: See TracChangeset for help on using the changeset viewer.