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 2636 for branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/SBC/sbccpl.F90 – NEMO

Ignore:
Timestamp:
2011-03-01T20:04:06+01:00 (13 years ago)
Author:
gm
Message:

dynamic mem: #785 ; move ctl_stop & warn in lib_mpp to avoid a circular dependency + ctl_stop improvment

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/SBC/sbccpl.F90

    r2633 r2636  
    223223      !!--------------------------------------------------------------------- 
    224224 
    225       IF(wrk_in_use(2,1,2) ) THEN 
    226          CALL ctl_stop('sbc_cpl_init: requested workspace arrays unavailable.')   ;   RETURN 
    227       END IF 
     225      IF(wrk_in_use(2, 1,2) ) THEN 
     226         CALL ctl_stop('sbc_cpl_init: requested workspace arrays unavailable')   ;   RETURN 
     227      ENDIF 
    228228 
    229229      ! ================================ ! 
    … …  
    563563         &   CALL ctl_stop( 'sbc_cpl_init: diurnal cycle reconstruction (ln_dm2dc) needs daily couping for solar radiation' ) 
    564564 
    565       IF(wrk_not_released(2,1,2))THEN 
    566          CALL ctl_stop('sbc_cpl_init: failed to release workspace arrays.') 
    567       END IF 
    568  
     565      IF( wrk_not_released(2, 1,2) )   CALL ctl_stop('sbc_cpl_init: failed to release workspace arrays.') 
     566      ! 
    569567   END SUBROUTINE sbc_cpl_init 
    570568 
    … …  
    629627      !!---------------------------------------------------------------------- 
    630628 
    631       IF(wrk_in_use(2, 1,2))THEN 
    632          CALL ctl_stop('sbc_cpl_rcv: requested workspace arrays unavailable.') 
    633          RETURN 
    634       END IF 
     629      IF( wrk_in_use(2, 1,2) ) THEN 
     630         CALL ctl_stop('sbc_cpl_rcv: requested workspace arrays unavailable')   ;   RETURN 
     631      ENDIF 
    635632 
    636633      IF( kt == nit000 )   CALL sbc_cpl_init( k_ice )          ! initialisation 
    … …  
    820817      ENDIF 
    821818      ! 
    822       IF(wrk_not_released(2, 1,2))THEN 
    823          CALL ctl_stop('sbc_cpl_rcv: failed to release workspace arrays.') 
    824       END IF 
     819      IF( wrk_not_released(2, 1,2) )   CALL ctl_stop('sbc_cpl_rcv: failed to release workspace arrays') 
    825820      ! 
    826821   END SUBROUTINE sbc_cpl_rcv 
    … …  
    870865      !!---------------------------------------------------------------------- 
    871866 
    872       IF(wrk_in_use(2,1,2))THEN 
    873          CALL ctl_stop('sbc_cpl_ice_tau: requested workspace arrays unavailable.') 
    874          RETURN 
    875       END IF 
     867      IF( wrk_in_use(2, 1,2) ) THEN 
     868         CALL ctl_stop('sbc_cpl_ice_tau: requested workspace arrays unavailable')   ;   RETURN 
     869      ENDIF 
    876870 
    877871      IF( srcv(jpr_itx1)%laction ) THEN   ;   itx =  jpr_itx1    
    … …  
    10411035      ENDIF 
    10421036      !    
    1043       IF(wrk_not_released(2,1,2))THEN 
    1044          CALL ctl_stop('sbc_cpl_ice_tau: failed to release workspace arrays.') 
    1045       END IF 
     1037      IF( wrk_not_released(2, 1,2) )   CALL ctl_stop('sbc_cpl_ice_tau: failed to release workspace arrays') 
    10461038      ! 
    10471039   END SUBROUTINE sbc_cpl_ice_tau 
    … …  
    11181110      !!---------------------------------------------------------------------- 
    11191111 
    1120       IF( wrk_in_use(2,1,2,3) .OR. wrk_in_use(3,1) )THEN 
    1121          CALL ctl_stop('sbc_cpl_ice_flx: requested workspace arrays unavailable.') 
    1122          RETURN 
    1123       END IF 
     1112      IF( wrk_in_use(2, 1,2,3) .OR. wrk_in_use(3, 1) ) THEN 
     1113         CALL ctl_stop('sbc_cpl_ice_flx: requested workspace arrays unavailable')   ;   RETURN 
     1114      ENDIF 
    11241115 
    11251116      zicefr(:,:,1) = 1.- p_frld(:,:,1) 
    … …  
    12401231      END SELECT 
    12411232 
    1242       IF( wrk_not_released(2,1,2,3) .OR. wrk_not_released(3,1) )THEN 
    1243          CALL ctl_stop('sbc_cpl_ice_flx: failed to release workspace arrays.') 
    1244       END IF 
    1245  
     1233      IF( wrk_not_released(2, 1,2,3) .OR.   & 
     1234          wrk_not_released(3, 1)      )   CALL ctl_stop('sbc_cpl_ice_flx: failed to release workspace arrays') 
     1235      ! 
    12461236   END SUBROUTINE sbc_cpl_ice_flx 
    12471237    
    … …  
    12681258      !!---------------------------------------------------------------------- 
    12691259 
    1270       IF(wrk_in_use(2, 1,2,3,4,5,6,7,8,9))THEN 
    1271          CALL ctl_stop('sbc_cpl_snd: requested workspace arrays are unavailable.'); 
    1272          RETURN 
    1273       END IF 
     1260      IF( wrk_in_use(2, 1,2,3,4,5,6,7,8,9) ) THEN 
     1261         CALL ctl_stop('sbc_cpl_snd: requested workspace arrays are unavailable')   ;   RETURN 
     1262      ENDIF 
    12741263 
    12751264      isec = ( kt - nit000 ) * NINT(rdttra(1))        ! date of exchanges 
    … …  
    14441433         !  
    14451434      ENDIF 
    1446    ! 
    1447       IF(wrk_not_released(2, 1,2,3,4,5,6,7,8,9))THEN 
    1448          CALL ctl_stop('sbc_cpl_snd: failed to release workspace arrays.'); 
    1449          RETURN 
    1450       END IF 
    1451    ! 
     1435      ! 
     1436      IF( wrk_not_released(2, 1,2,3,4,5,6,7,8,9) )   CALL ctl_stop('sbc_cpl_snd: failed to release workspace arrays') 
     1437      ! 
    14521438   END SUBROUTINE sbc_cpl_snd 
    14531439    
Note: See TracChangeset for help on using the changeset viewer.