Ignore:
Timestamp:
Jul 23, 2024, 3:29:36 PM (8 weeks ago)
Author:
abarral
Message:

Handle CPP_INLANDSIS in lmdz_cppkeys_wrapper.F90
Remove obsolete key wrgrads_thermcell, _ADV_HALO, _ADV_HALLO, isminmax
Remove redundant uses of CPPKEY_INCA (thanks acozic)
Remove obsolete misc/write_field.F90
Remove unused ioipsl_* wrappers
Remove calls to WriteField_u with wrong signature
Convert .F -> .[fF]90
(lint) uppercase fortran operators
[note: 1d and iso still broken - working on it]

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/branches/Amaury_dev/libf/phylmd/ocean_cpl_mod.F90

    r5101 r5103  
    5757       delta_sst, dTer, dSer, dt_ds)
    5858
    59 ! This subroutine treats the "open ocean", all grid points that are not entierly covered
    60 ! by ice. The subroutine first receives fields from coupler, then some calculations at
     59! This SUBROUTINE treats the "open ocean", all grid points that are not entierly covered
     60! by ice. The SUBROUTINE first receives fields from coupler, then some calculations at
    6161! surface is done and finally it sends some fields to the coupler.
    6262
    … …  
    248248       tsurf_new, dflux_s, dflux_l, rhoa)
    249249
    250 ! This subroutine treats the ocean where there is ice. The subroutine first receives
     250! This SUBROUTINE treats the ocean where there is ice. The SUBROUTINE first receives
    251251! fields from coupler, then some calculations at surface is done and finally sends
    252252! some fields to the coupler.
Note: See TracChangeset for help on using the changeset viewer.