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 1208 – NEMO

Changeset 1208


Ignore:
Timestamp:
2008-09-25T12:23:13+02:00 (16 years ago)
Author:
rblod
Message:

Correct syntax error with the conv, thanks to Steven, see ticket #261

Location:
trunk/NEMO/OPA_SRC
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • trunk/NEMO/OPA_SRC/SBC/albedo.F90

    r1146 r1208  
    9595      llmask = ( ph_snw == 0.e0 ) .AND. ( pt_ice >= rt0_ice ) 
    9696      ! ice free of snow and melts 
    97       WHERE( llmask )   ;   zalbfz = albice 
    98       ELSEWHERE         ;   zalbfz = alphdi 
     97      WHERE( llmask )    
     98         zalbfz = albice 
     99      ELSEWHERE      
     100         zalbfz = alphdi 
    99101      END WHERE 
    100102 

  • trunk/NEMO/OPA_SRC/lib_mpp.F90

    r1146 r1208  
    44214421 
    44224422    ! Allocate the right size to nrank_north 
     4423#if ! defined key_agrif 
    44234424    IF(ALLOCATED(nrank_ice)) DEALLOCATE(nrank_ice) 
     4425#else 
     4426    DEALLOCATE(nrank_ice) 
     4427#endif 
     4428 
    44244429    ALLOCATE(nrank_ice(ndim_rank_ice)) 
    44254430 
    … …  
    53595364      INTEGER, OPTIONAL :: localComm 
    53605365      function_value = 0 
     5366      localComm = 0  
    53615367   END FUNCTION mynode 
    53625368 
Note: See TracChangeset for help on using the changeset viewer.