Ignore:
Timestamp:
2015-10-22T17:18:18+02:00 (5 years ago)
Author:
mathiot
Message:

ice sheet coupling : add comments, rm PRINT statements, cosmetic changes

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/NERC/dev_r5589_is_oce_cpl/NEMOGCM/NEMO/OPA_SRC/DOM/iscplini.F90

    r5790 r5823  
    1313   USE dom_oce         ! ocean space and time domain 
    1414   USE oce             ! global tra/dyn variable 
    15    USE in_out_manager  ! I/O manager 
    1615   USE lib_mpp         ! MPP library 
    1716   USE lib_fortran     ! MPP library 
    18    USE iom 
     17   USE in_out_manager  ! I/O manager 
    1918 
    2019   IMPLICIT NONE 
     
    4544      ALLOCATE( htsc_iscpl(jpi,jpj,jpk,jpts) , hdiv_iscpl(jpi,jpj,jpk) , STAT=iscpl_alloc ) 
    4645         ! 
    47       IF( lk_mpp              )   CALL mpp_sum ( iscpl_alloc ) 
     46      IF( lk_mpp          )   CALL mpp_sum ( iscpl_alloc ) 
    4847      IF( iscpl_alloc > 0 )   CALL ctl_warn('iscpl_alloc: allocation of arrays failed') 
    4948   END FUNCTION iscpl_alloc 
Note: See TracChangeset for help on using the changeset viewer.