Changeset 5823 for branches/NERC/dev_r5589_is_oce_cpl/NEMOGCM/NEMO/OPA_SRC/DOM/iscplini.F90

Timestamp:

2015-10-22T17:18:18+02:00 (9 years ago)

Author:

mathiot

Message:

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

File:

• branches/NERC/dev_r5589_is_oce_cpl/NEMOGCM/NEMO/OPA_SRC/DOM/iscplini.F90 (modified) (2 diffs)

branches/NERC/dev_r5589_is_oce_cpl/NEMOGCM/NEMO/OPA_SRC/DOM/iscplini.F90

@@ -13 +13 @@
    USE dom_oce         ! ocean space and time domain
    USE oce             ! global tra/dyn variable
-   USE in_out_manager  ! I/O manager
    USE lib_mpp         ! MPP library
    USE lib_fortran     ! MPP library
-   USE iom
+   USE in_out_manager  ! I/O manager
 
    IMPLICIT NONE
@@ -45 +44 @@
       ALLOCATE( htsc_iscpl(jpi,jpj,jpk,jpts) , hdiv_iscpl(jpi,jpj,jpk) , STAT=iscpl_alloc )
          !
-      IF( lk_mpp              )   CALL mpp_sum ( iscpl_alloc )
+      IF( lk_mpp          )   CALL mpp_sum ( iscpl_alloc )
       IF( iscpl_alloc > 0 )   CALL ctl_warn('iscpl_alloc: allocation of arrays failed')
    END FUNCTION iscpl_alloc