New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 2690 for branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/DOM/istate.F90 – NEMO

Ignore:
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:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/DOM/istate.F90

    r2636 r2690  
    446446      !!                 p=integral [ rau*g dz ] 
    447447      !!---------------------------------------------------------------------- 
    448       USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 
    449       USE wrk_nemo, ONLY: zprn => wrk_3d_1 
     448      USE wrk_nemo, ONLY:   wrk_in_use, wrk_not_released 
     449      USE wrk_nemo, ONLY:   zprn => wrk_3d_1    ! 3D workspace 
    450450 
    451451      USE dynspg          ! surface pressure gradient             (dyn_spg routine) 
     
    458458      !!---------------------------------------------------------------------- 
    459459 
    460       IF(wrk_in_use(3, 1))THEN 
    461          CALL ctl_stop('istage_uvg: requested workspace array unavailable.') 
    462          RETURN 
    463       END IF 
     460      IF(wrk_in_use(3, 1) ) THEN 
     461         CALL ctl_stop('istage_uvg: requested workspace array unavailable')   ;   RETURN 
     462      ENDIF 
    464463 
    465464      IF(lwp) WRITE(numout,*)  
     
    558557      rotb (:,:,:) = rotn (:,:,:)       ! set the before to the now value 
    559558      ! 
    560       IF(wrk_not_released(3, 1))THEN 
    561          CALL ctl_stop('istage_uvg: failed to release workspace array.') 
    562       END IF 
     559      IF( wrk_not_released(3, 1) ) THEN 
     560         CALL ctl_stop('istage_uvg: failed to release workspace array') 
     561      ENDIF 
    563562      ! 
    564563   END SUBROUTINE istate_uvg 
Note: See TracChangeset for help on using the changeset viewer.