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 14034 – NEMO

Changeset 14034


Ignore:
Timestamp:
2020-12-03T11:35:20+01:00 (3 years ago)
Author:
jwhile
Message:

Updates to asminc

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/dev5518_gulf18_changes/NEMOGCM/NEMO/OPA_SRC/ASM/asminc.F90

    r13318 r14034  
    166166      LOGICAL :: lk_surft      ! Logical: T => Increments file contains surft variable  
    167167                               !               so only apply surft increments. 
     168      CHARACTER(50) :: cn_surftname   ! Name of the surft variable in the increments file 
    168169      !! 
    169170      NAMELIST/nam_asminc/ ln_bkgwri, ln_avgbkg, ln_balwri,                & 
     
    181182         &                 nitbkg, nitdin, nitiaustr, nitiaufin, niaufn,   & 
    182183         &                 ln_salfix, salfixmin, nn_divdmp, nitavgbkg,     & 
    183          &                 mld_choice, mld_choice_bgc, rn_maxchlinc 
     184         &                 mld_choice, mld_choice_bgc, rn_maxchlinc,       & 
     185         &                 cn_surftname 
     186          
    184187      !!---------------------------------------------------------------------- 
    185188 
     
    209212      niaufn    = 0 
    210213      nitavgbkg = 1 
     214      cn_surftname = "surft" 
    211215 
    212216      REWIND( numnam_ref )              ! Namelist nam_asminc in reference namelist : Assimilation increment 
     
    272276         WRITE(numout,*) '      Logical switch for applying pph increments               ln_pphinc = ', ln_pphinc 
    273277         WRITE(numout,*) '      Logical switch for applying po2 increments               ln_po2inc = ', ln_po2inc 
     278         WRITE(numout,*) '      Surface temperature variable name (if applicable)        cn_surftname = ', cn_surftname 
    274279      ENDIF 
    275280 
     
    517522 
    518523            !Test if the increments file contains the surft variable. 
    519             isurfstat = iom_varid( inum, 'bckinsurft', ldstop = .FALSE. ) 
     524            isurfstat = iom_varid( inum, 'bckin'//TRIM(cn_surftname), ldstop = .FALSE. ) 
    520525            IF ( isurfstat == -1 ) THEN 
    521526               lk_surft = .FALSE. 
     
    523528               lk_surft = .TRUE. 
    524529               CALL ctl_warn( ' Applying 2D temperature increment to bottom of ML: ', & 
    525             &                 ' bckinsurft found in increments file.' ) 
     530            &                 ' bckin'//TRIM(cn_surftname)//' found in increments file.' ) 
    526531            ENDIF              
    527532 
     
    550555                       
    551556               ALLOCATE( t_bkginc_2d(jpi,jpj) )  
    552                CALL iom_get( inum, jpdom_autoglo, 'bckinsurft', t_bkginc_2d, 1)  
     557               CALL iom_get( inum, jpdom_autoglo, 'bckin'//TRIM(cn_surftname), t_bkginc_2d, 1)  
    553558#if defined key_bdy                 
    554559               DO jk = 1,jpkm1  
Note: See TracChangeset for help on using the changeset viewer.