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/trcbio_medusa.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/trcbio_medusa.F90

    r9327 r9374  
    303303             WRITE(numout,*) '** MEDUSA Atm xCO2 given by the UM **' 
    304304         f_xco2a(:,:) = PCO2a_in_cpl(:,:) 
     305         !! Check the xCO2 from the UM is OK 
     306         !! piece of code moved from air-sea.F90 
     307         !!--- 
     308         DO jj = 2,jpjm1 
     309            DO ji = 2,jpim1 
     310               !! OPEN wet point IF..THEN loop 
     311               IF (tmask(ji,jj,1) == 1) then 
     312                  !!! Jpalm test on atm xCO2 
     313                  IF ( (f_xco2a(ji,jj) .GT. 10000.0 ).OR.     & 
     314                       (f_xco2a(ji,jj) .LE. 0.0 ) ) THEN 
     315                     IF(lwp) THEN 
     316                        WRITE(numout,*) ' atm xCO2 = ',f_xco2a(ji,jj),       & 
     317                                        ' -- ji =', mig(ji),' jj = ', mjg(jj) 
     318                     ENDIF 
     319                     CALL ctl_stop( 'MEDUSA - Air-Sea :',     & 
     320                                    'unrealistic coupled atm xCO2 ' ) 
     321                  ENDIF 
     322               ENDIF 
     323            ENDDO 
     324         ENDDO 
     325         !!---  
    305326      ELSEIF (lk_pi_co2) THEN 
    306327         !! OCMIP pre-industrial xCO2 
Note: See TracChangeset for help on using the changeset viewer.