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 6492 for trunk – NEMO

Changeset 6492 for trunk


Ignore:
Timestamp:
2016-04-22T15:04:31+02:00 (8 years ago)
Author:
mathiot
Message:

Initialisation of misfdep/risfdep in case ln_zco activated + check compatibility option ln_isfcav + ln_zco/ln_sco

File:
1 edited

Legend:

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

    r6152 r6492  
    137137      IF( ln_sco      )   ioptio = ioptio + 1 
    138138      IF( ioptio /= 1 )   CALL ctl_stop( ' none or several vertical coordinate options used' ) 
     139      ! 
     140      ioptio = 0 
     141      IF ( ln_zco .AND. ln_isfcav ) ioptio = ioptio + 1 
     142      IF ( ln_sco .AND. ln_isfcav ) ioptio = ioptio + 1 
     143      IF( ioptio > 0 )   CALL ctl_stop( ' Cavity not tested/compatible with full step (zco) and sigma (ln_sco) ' ) 
    139144      ! 
    140145      ! Build the vertical coordinate system 
     
    503508            CALL iom_close( inum ) 
    504509            mbathy(:,:) = INT( bathy(:,:) ) 
     510            ! initialisation isf variables 
     511            risfdep(:,:)=0._wp ; misfdep(:,:)=1              
    505512            !                                                ! ===================== 
    506513            IF( cp_cfg == "orca" .AND. jp_cfg == 2 ) THEN    ! ORCA R2 configuration 
     
    539546            CALL iom_close( inum ) 
    540547            !                                                 
    541             risfdep(:,:)=0._wp          
    542             misfdep(:,:)=1              
     548            ! initialisation isf variables 
     549            risfdep(:,:)=0._wp ; misfdep(:,:)=1              
     550            ! 
    543551            IF ( ln_isfcav ) THEN 
    544552               CALL iom_open ( 'isf_draft_meter.nc', inum )  
Note: See TracChangeset for help on using the changeset viewer.