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 9374 for branches/NERC/dev_r5518_GO6_CO2_cmip/NEMOGCM/NEMO/TOP_SRC/MEDUSA/air_sea.F90 – NEMO

Ignore:
Timestamp:
2018-03-06T13:35:36+01:00 (5 years ago)
Author:
jpalmier
Message:

JPALM -- 06-03-2018 -- corrections after review suggestions ; see GMED 380 - comment 22

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/NERC/dev_r5518_GO6_CO2_cmip/NEMOGCM/NEMO/TOP_SRC/MEDUSA/air_sea.F90

    r9344 r9374  
    6767# endif 
    6868      USE in_out_manager,    ONLY: lwp, numout 
    69       USE oce,               ONLY: PCO2a_in_cpl 
    7069      USE par_kind,          ONLY: wp 
    7170      USE par_oce,           ONLY: jpi, jpim1, jpj, jpjm1 
    72       USE sbc_oce,           ONLY: fr_i, lk_oasis, qsr, wndm 
     71      USE sbc_oce,           ONLY: fr_i, qsr, wndm 
    7372      USE sms_medusa,        ONLY: jdms, jdms_input, jdms_model,          & 
    7473                                   jriver_alk, jriver_c,                  & 
     
    152151            !! OPEN wet point IF..THEN loop 
    153152            IF (tmask(ji,jj,1) == 1) then 
    154                IF (lk_oasis) THEN 
    155                   !!! Jpalm test on atm xCO2 
    156                   IF ( (f_xco2a(ji,jj) .GT. 10000.0 ).OR.(f_xco2a(ji,jj) .LE. 0.0 ) ) THEN 
    157                     IF(lwp) THEN  
    158                        WRITE(numout,*) ' atm xCO2 = ',f_xco2a(ji,jj),          & 
    159                                        ' -- ji =', mig(ji),' jj = ', mjg(jj) 
    160                     ENDIF 
    161                     CALL ctl_stop( 'MEDUSA - Air-Sea :', 'unrealistic coupled atm xCO2 ' ) 
    162                  ENDIF  
    163                ENDIF 
    164153               !! 
    165154               !! AXY (23/06/15): as part of an effort to update the  
     
    264253               !!       Enormous dpco2 - even if all carb chem caract are OK. 
    265254               !!       and this check stops the model. 
    266                !!       ==> let's run the model without it and see how it goes. 
     255               !!       --Input checks are already more than enough to stop the 
     256               !!       model if carb chem goes crazy.  
     257               !!       we remove the mocsy output checks 
    267258               !!=================== 
    268259               !!IF ( (f_pco2w(ji,jj) > 1.E4 ).OR.(f_pco2w(ji,jj) < 0.0 ) .OR.     & 
Note: See TracChangeset for help on using the changeset viewer.