Changeset 9248


Ignore:
Timestamp:
2018-01-16T17:41:18+01:00 (3 years ago)
Author:
cetlod
Message:

dev2017 : Minor correction in p4Zflx

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2017/dev_merge_2017/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zflx.F90

    r9169 r9248  
    249249         WRITE(numout,*) '      reading in the atm pCO2 file or constant value   ln_co2int =', ln_co2int 
    250250      ENDIF 
    251  
    252 !!gm  BUG !!!   ===>>>  ln_presatm and ln_presatmco2 are used below, but read in namelist  
    253 !!gm                    at the end of the routine via a CALL to CALL p4z_patm( nit000 ) 
    254  
    255      IF( .NOT.ln_co2int .AND. .NOT.ln_presatmco2 ) THEN 
     251      ! 
     252      CALL p4z_patm( nit000 ) 
     253      ! 
     254      IF( .NOT.ln_co2int .AND. .NOT.ln_presatmco2 ) THEN 
    256255         IF(lwp) THEN                         ! control print 
    257256            WRITE(numout,*) '         Constant Atmospheric pCO2 value               atcco2    =', atcco2 
     
    281280         CLOSE(numco2) 
    282281      ELSEIF( .NOT.ln_co2int .AND. ln_presatmco2 ) THEN 
    283          IF(lwp)  THEN 
    284             WRITE(numout,*) '    Spatialized Atmospheric pCO2 from an external file' 
    285          ENDIF 
     282         IF(lwp) WRITE(numout,*) '    Spatialized Atmospheric pCO2 from an external file' 
    286283      ELSE 
    287          IF(lwp)  THEN 
    288             WRITE(numout,*) '    Spatialized Atmospheric pCO2 from an external file' 
    289          ENDIF 
     284         IF(lwp) WRITE(numout,*) '    Spatialized Atmospheric pCO2 from an external file' 
    290285      ENDIF 
    291286      ! 
     
    293288      t_oce_co2_flx = 0._wp 
    294289      t_atm_co2_flx = 0._wp 
    295       ! 
    296       CALL p4z_patm( nit000 ) 
    297290      ! 
    298291   END SUBROUTINE p4z_flx_init 
Note: See TracChangeset for help on using the changeset viewer.