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 5381 for branches/2015/dev_r5218_CNRS17_coupling/NEMOGCM/NEMO/SAS_SRC/sbcssm.F90 – NEMO

Ignore:
Timestamp:
2015-06-09T00:48:54+02:00 (9 years ago)
Author:
smasson
Message:

dev_r5218_CNRS17_coupling: continue...

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2015/dev_r5218_CNRS17_coupling/NEMOGCM/NEMO/SAS_SRC/sbcssm.F90

    r5376 r5381  
    180180         WRITE(numout,*) 
    181181      ENDIF 
    182  
    183       IF( nn_components /= jp_iam_sas ) THEN  
    184          ! 
    185          !! switch off stuff that isn't sensible with a standalone module 
    186          !! note that we need sbc_ssm called first in sbc 
    187          ! 
    188          IF( ln_apr_dyn ) THEN 
    189             IF( lwp ) WRITE(numout,*) 'No atmospheric gradient needed with StandAlone Surface scheme' 
    190             ln_apr_dyn = .FALSE. 
    191          ENDIF 
    192          IF( ln_dm2dc ) THEN 
    193             IF( lwp ) WRITE(numout,*) 'No diurnal cycle needed with StandAlone Surface scheme' 
    194             ln_dm2dc = .FALSE. 
    195          ENDIF 
    196          IF( ln_rnf ) THEN 
    197             IF( lwp ) WRITE(numout,*) 'No runoff needed with StandAlone Surface scheme' 
    198             ln_rnf = .FALSE. 
    199          ENDIF 
    200          IF( ln_ssr ) THEN 
    201             IF( lwp ) WRITE(numout,*) 'No surface relaxation needed with StandAlone Surface scheme' 
    202             ln_ssr = .FALSE. 
    203          ENDIF 
    204          IF( nn_fwb > 0 ) THEN 
    205             IF( lwp ) WRITE(numout,*) 'No freshwater budget adjustment needed with StandAlone Surface scheme' 
    206             nn_fwb = 0 
    207          ENDIF 
    208          IF( nn_closea > 0 ) THEN 
    209             IF( lwp ) WRITE(numout,*) 'No closed seas adjustment needed with StandAlone Surface scheme' 
    210             nn_closea = 0 
    211          ENDIF 
    212           
     182      ! 
     183      !! switch off stuff that isn't sensible with a standalone module 
     184      !! note that we need sbc_ssm called first in sbc 
     185      ! 
     186      IF( ln_apr_dyn ) THEN 
     187         IF( lwp ) WRITE(numout,*) 'No atmospheric gradient needed with StandAlone Surface scheme' 
     188         ln_apr_dyn = .FALSE. 
     189      ENDIF 
     190      IF( ln_rnf ) THEN 
     191         IF( lwp ) WRITE(numout,*) 'No runoff needed with StandAlone Surface scheme' 
     192         ln_rnf = .FALSE. 
     193      ENDIF 
     194      IF( ln_ssr ) THEN 
     195         IF( lwp ) WRITE(numout,*) 'No surface relaxation needed with StandAlone Surface scheme' 
     196         ln_ssr = .FALSE. 
     197      ENDIF 
     198      IF( nn_fwb > 0 ) THEN 
     199         IF( lwp ) WRITE(numout,*) 'No freshwater budget adjustment needed with StandAlone Surface scheme' 
     200         nn_fwb = 0 
     201      ENDIF 
     202      IF( nn_closea > 0 ) THEN 
     203         IF( lwp ) WRITE(numout,*) 'No closed seas adjustment needed with StandAlone Surface scheme' 
     204         nn_closea = 0 
    213205      ENDIF 
    214206      !  
Note: See TracChangeset for help on using the changeset viewer.