Changeset 12666


Ignore:
Timestamp:
2020-04-03T16:09:42+02:00 (7 months ago)
Author:
jcastill
Message:

Final changes to make the code more general and working in all cases

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/UKMO/r12083_cpl-pressure/src/OCE/SBC/sbcmod.F90

    r12648 r12666  
    284284!!gm abusive use of jp_none ??   ===>>> need to be check and changed by adding a jp_sas parameter 
    285285         CASE( jp_none    )   ;   WRITE(numout,*) '   ==>>>   OPA coupled to SAS via oasis' 
    286             IF( ln_mixcpl )       WRITE(numout,*) '               + forced-coupled mixed formulation' 
    287286         END SELECT 
     287         IF( ln_mixcpl    )       WRITE(numout,*) '               + forced-coupled mixed formulation' 
    288288         IF( ll_not_nemo  )       WRITE(numout,*) '               + OASIS coupled SAS' 
     289         IF( ln_wave      )       WRITE(numout,*) '               + wave copling' 
    289290      ENDIF 
    290291      ! 
     
    385386      ! 
    386387      LOGICAL ::   ll_sas, ll_opa   ! local logical 
     388      LOGICAL ::   ll_wav, ll_rcv   ! local logical 
    387389      ! 
    388390      REAL(wp) ::     zthscl        ! wd  tanh scale 
     
    419421      ll_sas = nn_components == jp_iam_sas               ! component flags 
    420422      ll_opa = nn_components == jp_iam_opa 
     423      ll_wav = ln_cdgw .OR. ln_sdw .OR. ln_tauwoc .OR. ln_stcor 
     424      ll_rcv = ( ln_mixcpl .OR. ( ll_wav .AND. nsbc /= jp_purecpl .AND. nsbc /= jp_none ) ) .AND. & 
     425               .NOT. ( nsbc == jp_blk .AND. ll_sas ) 
    421426      ! 
    422427      IF( .NOT.ll_sas )   CALL sbc_ssm ( kt )            ! mean ocean sea surface variables (sst_m, sss_m, ssu_m, ssv_m) 
    423428      IF( ln_wave     )   CALL sbc_wave( kt )            ! surface waves 
    424  
    425429      ! 
    426430      !                                            !==  sbc formulation  ==! 
     
    439443      END SELECT 
    440444      ! 
    441       IF( ln_mixcpl .OR. ( ln_wave .AND. nsbc .NE. jp_purecpl .AND. nsbc .NE. jp_none ) ) & 
    442                                CALL sbc_cpl_rcv   ( kt, nn_fsbc, nn_ice )   ! forced-coupled mixed formulation after forcing 
     445      IF( ll_rcv )             CALL sbc_cpl_rcv   ( kt, nn_fsbc, nn_ice )   ! forced-coupled mixed formulation after forcing 
    443446      IF( ln_bdy )             CALL bdy_dta ( kt, kt_offset=+1 )            ! update dynamic & tracer data at open boundaries  
    444447 
Note: See TracChangeset for help on using the changeset viewer.