Ignore:
Timestamp:
2018-07-10T12:09:06+02:00 (2 years ago)
Author:
cetlod
Message:

A coupled of bugfixes for PISCES

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/trunk/src/TOP/PISCES/P4Z/p4zsms.F90

    r9751 r9909  
    300300         IF( ln_p5z ) THEN 
    301301            IF( iom_varid( numrtr, 'sized', ldstop = .FALSE. ) > 0 ) THEN 
    302                CALL iom_get( numrtr, jpdom_autoglo, 'sizep' , sized(:,:,:)  ) 
    303                CALL iom_get( numrtr, jpdom_autoglo, 'sizen' , sized(:,:,:)  ) 
     302               CALL iom_get( numrtr, jpdom_autoglo, 'sizep' , sizep(:,:,:)  ) 
     303               CALL iom_get( numrtr, jpdom_autoglo, 'sizen' , sizen(:,:,:)  ) 
    304304               CALL iom_get( numrtr, jpdom_autoglo, 'sized' , sized(:,:,:)  ) 
    305305            ELSE 
     
    321321         CALL iom_rstput( kt, nitrst, numrtw, 'tcflxcum', t_oce_co2_flx_cum ) 
    322322         IF( ln_p5z ) THEN 
    323             CALL iom_rstput( kt, nitrst, numrtw, 'sizep', sized(:,:,:) ) 
    324             CALL iom_rstput( kt, nitrst, numrtw, 'sizen', sized(:,:,:) ) 
     323            CALL iom_rstput( kt, nitrst, numrtw, 'sizep', sizep(:,:,:) ) 
     324            CALL iom_rstput( kt, nitrst, numrtw, 'sizen', sizen(:,:,:) ) 
    325325            CALL iom_rstput( kt, nitrst, numrtw, 'sized', sized(:,:,:) ) 
    326326         ENDIF 
Note: See TracChangeset for help on using the changeset viewer.