Changeset 2690 for branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/DOM/dommsk.F90

Timestamp:

2011-03-15T16:27:46+01:00 (13 years ago)

Author:

gm

Message:

dynamic mem: #785 ; homogeneization of the coding style associated with dyn allocation

File:

• branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/DOM/dommsk.F90 (modified) (3 diffs)

branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/DOM/dommsk.F90

@@ -126 +126 @@
       !!----------------------------------------------------------------------
       USE wrk_nemo, ONLY:   wrk_in_use, wrk_not_released, iwrk_in_use, iwrk_not_released
-      USE wrk_nemo, ONLY:   zwf => wrk_2d_1
-      USE wrk_nemo, ONLY:   imsk => iwrk_2d_1
-      !!
+      USE wrk_nemo, ONLY:   zwf  =>  wrk_2d_1      ! 2D real    workspace
+      USE wrk_nemo, ONLY:   imsk => iwrk_2d_1      ! 2D integer workspace
+      !
       INTEGER  ::   ji, jj, jk      ! dummy loop indices
-      INTEGER  ::   iif, iil, ii0, ii1, ii
-      INTEGER  ::   ijf, ijl, ij0, ij1
+      INTEGER  ::   iif, iil, ii0, ii1, ii   ! local integers
+      INTEGER  ::   ijf, ijl, ij0, ij1       !   -       -
       !!
       NAMELIST/namlbc/ rn_shlat
       !!---------------------------------------------------------------------
       
-      IF( wrk_in_use(2, 1) .OR. iwrk_in_use(2, 1) )THEN
-         CALL ctl_stop('dom_msk: ERROR: requested workspace arrays unavailable')   ;   RETURN
+      IF( wrk_in_use(2, 1) .OR. iwrk_in_use(2, 1) ) THEN
+         CALL ctl_stop('dom_msk: requested workspace arrays unavailable')   ;   RETURN
       ENDIF
 
@@ -436 +436 @@
       ENDIF
       !
-      IF( wrk_not_released(2, 1) .OR.   &
-         iwrk_not_released(2, 1)   )   CALL ctl_stop('dom_msk: ERROR: failed to release workspace arrays')
+      IF( wrk_not_released(2, 1)  .OR.   &
+         iwrk_not_released(2, 1)  )   CALL ctl_stop('dom_msk: failed to release workspace arrays')
       !
    END SUBROUTINE dom_msk
@@ -461 +461 @@
       !!---------------------------------------------------------------------
 
-      IF(lwp)WRITE(numout,*)
-      IF(lwp)WRITE(numout,*) 'dom_msk_nsa : noslip accurate boundary condition'
-      IF(lwp)WRITE(numout,*) '~~~~~~~~~~~   using Schchepetkin and O Brian scheme'
+      IF(lwp) WRITE(numout,*)
+      IF(lwp) WRITE(numout,*) 'dom_msk_nsa : noslip accurate boundary condition'
+      IF(lwp) WRITE(numout,*) '~~~~~~~~~~~   using Schchepetkin and O Brian scheme'
       IF( lk_mpp )   CALL ctl_stop( ' mpp version is not yet implemented' )