Ignore:
Timestamp:
2012-03-20T11:19:32+01:00 (9 years ago)
Author:
sga
Message:

NEMO 2012 development branch dev_r3322_NOCS09_SAS: correct stupidity - otherwise known as never do

anything other than write inside an lwp clause

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2012/dev_r3322_NOCS09_SAS/NEMOGCM/NEMO/SAS_SRC/sbcmod.F90

    r3331 r3333  
    106106          nn_ice      =   0 
    107107      ENDIF 
    108       IF( lwp ) THEN 
    109          IF( ln_cpl ) THEN 
    110             WRITE(numout,*) 'Coupled mode not sensible with StandAlone Surface scheme' 
    111             ln_cpl = .FALSE. 
    112          ENDIF 
    113          IF( ln_apr_dyn ) THEN 
    114             WRITE(numout,*) 'No atmospheric gradient needed with StandAlone Surface scheme' 
    115             ln_apr_dyn = .FALSE. 
    116          ENDIF 
    117          IF( ln_dm2dc ) THEN 
    118             WRITE(numout,*) 'No diurnal cycle needed with StandAlone Surface scheme' 
    119             ln_dm2dc = .FALSE. 
    120          ENDIF 
    121          IF( ln_rnf ) THEN 
    122             WRITE(numout,*) 'No runoff needed with StandAlone Surface scheme' 
    123             ln_rnf = .FALSE. 
    124          ENDIF 
    125          IF( ln_ssr ) THEN 
    126             WRITE(numout,*) 'No surface relaxation needed with StandAlone Surface scheme' 
    127             ln_ssr = .FALSE. 
    128          ENDIF 
    129          IF( nn_fwb > 0 ) THEN 
    130             WRITE(numout,*) 'No freshwater budget adjustment needed with StandAlone Surface scheme' 
    131             nn_fwb = 0 
    132          ENDIF 
    133          IF( nn_closea > 0 ) THEN 
    134             WRITE(numout,*) 'No closed seas adjustment needed with StandAlone Surface scheme' 
    135             nn_closea = 0 
    136          ENDIF 
     108      IF( ln_cpl ) THEN 
     109         IF( lwp ) WRITE(numout,*) 'Coupled mode not sensible with StandAlone Surface scheme' 
     110         ln_cpl = .FALSE. 
     111      ENDIF 
     112      IF( ln_apr_dyn ) THEN 
     113         IF( lwp ) WRITE(numout,*) 'No atmospheric gradient needed with StandAlone Surface scheme' 
     114         ln_apr_dyn = .FALSE. 
     115      ENDIF 
     116      IF( ln_dm2dc ) THEN 
     117         IF( lwp ) WRITE(numout,*) 'No diurnal cycle needed with StandAlone Surface scheme' 
     118         ln_dm2dc = .FALSE. 
     119      ENDIF 
     120      IF( ln_rnf ) THEN 
     121         IF( lwp ) WRITE(numout,*) 'No runoff needed with StandAlone Surface scheme' 
     122         ln_rnf = .FALSE. 
     123      ENDIF 
     124      IF( ln_ssr ) THEN 
     125         IF( lwp ) WRITE(numout,*) 'No surface relaxation needed with StandAlone Surface scheme' 
     126         ln_ssr = .FALSE. 
     127      ENDIF 
     128      IF( nn_fwb > 0 ) THEN 
     129         IF( lwp ) WRITE(numout,*) 'No freshwater budget adjustment needed with StandAlone Surface scheme' 
     130         nn_fwb = 0 
     131      ENDIF 
     132      IF( nn_closea > 0 ) THEN 
     133         IF( lwp ) WRITE(numout,*) 'No closed seas adjustment needed with StandAlone Surface scheme' 
     134         nn_closea = 0 
    137135      ENDIF 
    138136       
Note: See TracChangeset for help on using the changeset viewer.