Ignore:
Timestamp:
2011-03-15T16:27:46+01:00 (11 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/SBC/sbccpl.F90

    r2636 r2690  
    156156#if ! defined key_lim2   &&   ! defined key_lim3 
    157157   ! quick patch to be able to run the coupled model without sea-ice... 
    158    INTEGER, PARAMETER               ::   jpl = 1  
     158   INTEGER, PARAMETER ::   jpl = 1  
    159159   REAL(wp), ALLOCATABLE, SAVE, DIMENSION(:,:)   ::   hicif, hsnif, u_ice, v_ice,fr1_i0,fr2_i0 ! jpi, jpj 
    160160   REAL(wp), ALLOCATABLE, SAVE, DIMENSION(:,:,:) ::   tn_ice, alb_ice ! (jpi,jpj,jpl) 
    161    REAL(wp)                         ::  lfus 
     161   REAL(wp) ::  lfus 
    162162#endif 
    163163 
     
    167167   !! NEMO/OPA 3.3 , NEMO Consortium (2010) 
    168168   !! $Id$ 
    169    !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 
     169   !! Software governed by the CeCILL licence     (NEMOGCM/NEMO_CeCILL.txt) 
    170170   !!---------------------------------------------------------------------- 
    171171 
     
    206206      !!              * initialise the OASIS coupler 
    207207      !!---------------------------------------------------------------------- 
    208       USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 
    209       USE wrk_nemo, ONLY: zacs => wrk_2d_1, zaos => wrk_2d_2 ! clear & overcast sky albedos 
     208      USE wrk_nemo, ONLY:   wrk_in_use, wrk_not_released 
     209      USE wrk_nemo, ONLY:   zacs => wrk_2d_1 , zaos => wrk_2d_2  ! clear & overcast sky albedos 
    210210      !! 
    211211      INTEGER, INTENT(in) ::   k_ice    ! ice management in the sbc (=0/1/2/3) 
    212212      !! 
    213       INTEGER                      ::   jn           ! dummy loop index 
     213      INTEGER ::   jn   ! dummy loop index 
    214214      !! 
    215215      NAMELIST/namsbc_cpl/  cn_snd_temperature, cn_snd_albedo    , cn_snd_thickness,                 &           
     
    223223      !!--------------------------------------------------------------------- 
    224224 
    225       IF(wrk_in_use(2, 1,2) ) THEN 
     225      IF( wrk_in_use(2, 1,2) ) THEN 
    226226         CALL ctl_stop('sbc_cpl_init: requested workspace arrays unavailable')   ;   RETURN 
    227227      ENDIF 
     
    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) )   CALL ctl_stop('sbc_cpl_init: failed to release workspace arrays.') 
     565      IF( wrk_not_released(2, 1,2) )   CALL ctl_stop('sbc_cpl_init: failed to release workspace arrays') 
    566566      ! 
    567567   END SUBROUTINE sbc_cpl_init 
     
    610610      !!                        emp = emps   evap. - precip. (- runoffs) (- calving) ('ocean only case) 
    611611      !!---------------------------------------------------------------------- 
    612       USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 
    613       USE wrk_nemo, ONLY: ztx => wrk_2d_1, zty => wrk_2d_2 
     612      USE wrk_nemo, ONLY:   wrk_in_use, wrk_not_released 
     613      USE wrk_nemo, ONLY:   ztx => wrk_2d_1 , zty => wrk_2d_2 
    614614      !! 
    615615      INTEGER, INTENT(in) ::   kt       ! ocean model time step index 
     
    855855      !! ** Action  :   return ptau_i, ptau_j, the stress over the ice at cp_ice_msh point 
    856856      !!---------------------------------------------------------------------- 
    857       USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 
    858       USE wrk_nemo, ONLY: ztx => wrk_2d_1, zty => wrk_2d_2 
     857      USE wrk_nemo, ONLY:   wrk_in_use, wrk_not_released 
     858      USE wrk_nemo, ONLY:   ztx => wrk_2d_1 , zty => wrk_2d_2 
    859859      !! 
    860860      REAL(wp), INTENT(out), DIMENSION(:,:) ::   p_taui   ! i- & j-components of atmos-ice stress [N/m2] 
     
    10851085      !!                   sprecip             solid precipitation over the ocean   
    10861086      !!---------------------------------------------------------------------- 
    1087       USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 
    1088       USE wrk_nemo, ONLY: zcptn => wrk_2d_1  ! rcp * tn(:,:,1) 
    1089       USE wrk_nemo, ONLY: ztmp  => wrk_2d_2  ! temporary array 
    1090       USE wrk_nemo, ONLY: zsnow => wrk_2d_3  ! snow precipitation  
    1091       USE wrk_nemo, ONLY: zicefr => wrk_3d_1 ! ice fraction  
     1087      USE wrk_nemo, ONLY:   wrk_in_use, wrk_not_released 
     1088      USE wrk_nemo, ONLY:   zcptn  => wrk_2d_1   ! rcp * tn(:,:,1) 
     1089      USE wrk_nemo, ONLY:   ztmp   => wrk_2d_2   ! temporary array 
     1090      USE wrk_nemo, ONLY:   zsnow  => wrk_2d_3   ! snow precipitation  
     1091      USE wrk_nemo, ONLY:   zicefr => wrk_3d_1  ! ice fraction  
    10921092      !! 
    10931093      REAL(wp), INTENT(in   ), DIMENSION(:,:,:) ::   p_frld     ! lead fraction                [0 to 1] 
     
    12311231      END SELECT 
    12321232 
    1233       IF( wrk_not_released(2, 1,2,3) .OR.   & 
     1233      IF( wrk_not_released(2, 1,2,3)  .OR.   & 
    12341234          wrk_not_released(3, 1)      )   CALL ctl_stop('sbc_cpl_ice_flx: failed to release workspace arrays') 
    12351235      ! 
     
    12461246      !!              all the needed fields (as defined in sbc_cpl_init) 
    12471247      !!---------------------------------------------------------------------- 
    1248       USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 
    1249       USE wrk_nemo, ONLY: zfr_l => wrk_2d_1 ! 1. - fr_i(:,:) 
    1250       USE wrk_nemo, ONLY: ztmp1 => wrk_2d_2, ztmp2 => wrk_2d_3 
    1251       USE wrk_nemo, ONLY: zotx1=> wrk_2d_4, zoty1=> wrk_2d_5, zotz1=> wrk_2d_6 
    1252       USE wrk_nemo, ONLY: zitx1=> wrk_2d_7, zity1=> wrk_2d_8, zitz1=> wrk_2d_9 
    1253       !! 
     1248      USE wrk_nemo, ONLY:   wrk_in_use, wrk_not_released 
     1249      USE wrk_nemo, ONLY:   zfr_l => wrk_2d_1  ! 1. - fr_i(:,:) 
     1250      USE wrk_nemo, ONLY:   ztmp1 => wrk_2d_2 , ztmp2 => wrk_2d_3 
     1251      USE wrk_nemo, ONLY:   zotx1 => wrk_2d_4 , zoty1 => wrk_2d_5 , zotz1 => wrk_2d_6 
     1252      USE wrk_nemo, ONLY:   zitx1 => wrk_2d_7 , zity1 => wrk_2d_8 , zitz1 => wrk_2d_9 
     1253      ! 
    12541254      INTEGER, INTENT(in) ::   kt 
    1255       !! 
    1256       INTEGER ::   ji, jj          ! dummy loop indices 
    1257       INTEGER ::   isec, info      ! temporary integer 
     1255      ! 
     1256      INTEGER ::   ji, jj       ! dummy loop indices 
     1257      INTEGER ::   isec, info   ! local integer 
    12581258      !!---------------------------------------------------------------------- 
    12591259 
Note: See TracChangeset for help on using the changeset viewer.