Ignore:
Timestamp:
2018-03-06T17:42:15+01:00 (2 years ago)
Author:
jpalmier
Message:

back to * as CFC reading format

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/NERC/dev_r5518_GO6_CO2_cmip/NEMOGCM/NEMO/TOP_SRC/CFC/trcini_cfc.F90

    r9374 r9377  
    109109      ! Read file till the end 
    110110      DO jn = 31, jpyear  
    111         READ(inum, '( F6.1, 6F7.2)', IOSTAT=io) zyy, p_cfc(jn,1,1), p_cfc(jn,1,2), & 
     111        !!READ(inum, '(F6.1,6F7.2)', IOSTAT=io) zyy, p_cfc(jn,1,1), p_cfc(jn,1,2), & 
     112        READ(inum,*, IOSTAT=io) zyy, p_cfc(jn,1,1), p_cfc(jn,1,2), & 
    112113             & p_cfc(jn,1,3), p_cfc(jn,2,1),  & 
    113114             & p_cfc(jn,2,2), p_cfc(jn,2,3) 
Note: See TracChangeset for help on using the changeset viewer.