Changeset 14053 for NEMO/trunk/src/OCE/stpctl.F90

Timestamp:

2020-12-03T14:48:38+01:00 (3 years ago)

Author:

techene

Message:

#2385 added to the trunk

File:

• NEMO/trunk/src/OCE/stpctl.F90 (modified) (3 diffs)

NEMO/trunk/src/OCE/stpctl.F90

@@ -26 +26 @@
    USE lbclnk          ! ocean lateral boundary conditions (or mpp link)
    USE lib_mpp         ! distributed memory computing
-   !
    USE netcdf          ! NetCDF library
+
    IMPLICIT NONE
    PRIVATE
@@ -71 +71 @@
       CHARACTER(len=20)               ::   clname
       !!----------------------------------------------------------------------
+      !
       IF( nstop > 0 .AND. ngrdstop > -1 )   RETURN   !   stpctl was already called by a child grid
       !
@@ -179 +180 @@
          END DO
          IF( kt == nitend )   istatus = NF90_CLOSE(nrunid)
-      END IF
+      ENDIF
       !                                   !==               error handling               ==!
       !                                   !==  done by all processes at every time step  ==!